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Ensaio 2 — SPECTRUM (SCROLL passo a passo à direita). 


ORG 65400 
START: LD HL 16384 : 1.º endereço do Display 
LD B 192 :- as 24 linhas do écran 
Al: LD C 32 :- as 32 colunas 
B1: LD E (HL) 
RR (HL) : rotação à direita 
INC HL : endereço seguinte 
DEC C :- — 1 no contador de coluna 
JR NZ B1 : salto se C <> 0 
BIT O E : analiza o bit O 
JR Z Ci : Salto se C=0 
PUSH HL : memoriza o endereço 
ds LD DE 31 : para visualizar o último pixel à 
SBC HL DE ; direita, na esquerda do écran 
uma ou outra SET 7 (HL) :; pixel que sai à dir. aparece à esq. 
instrução RES 7 (HL) : pixel que sai à dir. não aparece à esa. 
POP HL 
C1: AND A : acerto do carry flag 
DJ NZ Aí : Coluna seguinte 
RET 


“Introduza uma imagem ou texto no écran e... 
FOR N=1 TO 300 : RANDOMIZE USR 65400 : NEXT N — ENTER 


Ensaio 3 — ZX81 ou SPECTRUM 


20 PRINT AT 16, O; «CONVERSAD (DECIMAL PARA BINÁRIO)» 
30 PRINT AT 18, O ; «ENTRE COM NÚMERO (0 a 255)» 

40 INPUT B 

50 CLS 

60 PRINT AT 6,6;B;” 


70 LET A = 16444 Spectrum 23300 


80 POKE A, 1 LD BC, O 
*””* POKE A+ 1,0 

tuu POKE A+ 2,0 

110 POKE A+3, 62 LDA, 62 


120 POKE A+ 4, B 

130 POKE A+ 5, 203 BIT... 

140 POKE A+ 7, 200 RETZ 

150 POKE A+ 8, 3 INC BC 

160 POKE'A + 9, 201 RET 

170 FOR GC = 1 TO 8 

180 POKE A+ 6, 135 — C +8 (a instrução BIT) 

190 PRINT USR 16444 Spectrum 23300 
200 NEXT C 

210 RUN 


Neste programa cada bit do valor B é testado em ciclo. O valor 
do registro BC é incrementado se o teste der 1. 


Grupo 15 — TRANSFERÊNCIA DE BYTS EM BLOCO 


Este tipo de instruções, de grande importância em programa- 
ção máquina, move blocos de memória desiocando-os em 
qualquer direcção da RAM, ou pesquisa dentro dum bloco a 
existência de determinado código. 


(Cont. dos números anteriores) 


Na execução duma instrução que movimente um bloco de me- 
mória, o endereço base desse blobo é colocado no registro 
HL, o endereço de destino no registro DE e a dimensão do 
bloco no registro BC. 

Na execução duma instrução que pesquisa um bloco de me- 
mória até ser encontrado um determinado código, o endereço 
base do bloco é colocado em HL, as dimensões de bloco em 
BC e o valor a encontrar no registro A. 

As instruções deste grupo estão divididas em dois subconjun- 
tos distintos. 


a) Instruções automáticas 
D) Instruções passo a passo 


As instruções automáticas movem ou pesquisam um bloco de 
uma só vez sem interrupção. 

As instruções passo a passo requerem um contador ordenado 
para o número de bytes a mover ou pesquisar. 


a) Instruções automáticas 


Mnemónicas Códigos Comentários 

LDIR 237, 176 Movimento incrementado 
LDDR 237, 184 Movimento decrementado 
CPIR 237, 477 Pesquisa incrementada 
CPDR 237, 185 Pesquisa decrementada 


LDIR: — Esta instrução move um byte de HL para DE. Os 
valores de HL e DE são incrementados (+ 1) e o contador 
BC é decrementado (—1). Quando o registro BC atinge o 
zero, cessa a movimentação de bytes e o flag (O/P) é 
passado a zero (Reset). 

LDDR: Esta instrução é similar à instrução LDIR, excepto 
quanto aos valores de HL e DE que são decrementados 
(—1) a seguir à movimentação de cada byte contado por 
BC. 

CPIR: Esta instrução pesquisa um bloco de memória especifi- 
cado pelo endereço de HL e pelo número de bytes em BC, 
até ser encontrado um código igual ao contido no registro 
A. Para que cada byte seja comparado, o registro HL é in- 
crementado (+1) e o registro BC, decrementado (— 1). 

Na primeira ocorrência de igualdade, a pesquisa termina. O 
flag sinal é passado a zero, o flag zero a 1 e o programa 
salta para a instrução seguinte com HL fixado no endereço 
imediato ao que contém o código pesquisado. 

Se não for encontrado nesse bloco um byte semelhante ao 
contido no registro A, quando BC chegar a zero o flag sinal 
bem como o flag O/P são passados a zero e o programa 
salta para a instrução seguinte. 


CPDR: Esta instrução é similar à CPIR, excepto no facto do 
registro HL ser decrementado (—1) após cada 
comparação. 

Db) Instruções passo a passo 


Mnemónicas Códigos Comentários 


LDI 237, 160 Movimento de byte incrementado 
LDD 237, 168 Movimento de byte decrementado 
CPI 237, 161 Pesquisa de byte incrementada 
CPD 237, 169 Pesquisa de byte decrementada 


CLUBE Zs0 


Adapt. “ZX COMPUTING” DEC/JAN. 85 


Como sabe, pode produzir desenhos e imagens com o seu 
micro usando quer os gráficos de baixa resolução ou os de 
alta resolução ou ambos. 

Podemos projectar um desenho simples como o da estrela 
de 5 pontas DESENHADA dentro de um círculo. 


4 BORDER 1: PAPER 6 : INK 1: CLS 
5 CIRCLE 128, 87, 87 

10 INK 2 

20 PLOT 128, 174 

30 DRAW 70, —140 

40 DRAW — 152, 80 

50 DRAW 164, 0 

60 DRAW — 150, —80 

70 DRAW 70, 140 


esta imagem pode ser guardada como um écran que fica 
visível enquanto aguarda o carregamento de um programa, 
por exemplo... SAVE «ESTRELA» SCREENS. 

Outro desenho, por exemplo, as pirâmides, cujo programa 
pode ser: 


10 BORDER O : PAPER 1: INK 6: CLS 
90 FOR Y=0 TO 20 STEP 2 
40 PLOT 0, Y 
50 DRAW 255, 0 
60 NEXT Y 
10 FOR N = 100 TO 220 STEP 30 
80 FOR X = — 10-N/10 TO 10 + N/10 
90 PLOT N, 35 + N/0 
100 DRAW X, -N/4 
110 NEXT X : NEXT N 


Este segundo desenho está ou foi guardado com o comando: 
SAVE «PIRÂMIDE» SCREENS. 

Existem ocasiões em que se torna necessário misturar 
os efeitos de screen$ que eventualmente levaram horas de 
trabalho a projectar. Será precisamente o objectivo deste 
pequeno programa que lhe apresentamos. 

Quando o tiver reproduzido na sua máquina, pode gravá-lo 
usando o comando: 


SAVE «mistura» LINE 40 


Quando tiver usado o programa e misturado os seus dese- 
nhos e imagens não se esqueça de restabelecer o RAMTOP 
pois, de ouro modo, receberá a mensagem: 


OUT OF MEMORY ou RAMTOP NO GOOD error 


Após ter terminado o uso do programa, pode executar um 
re-start com: 


CLEAR 65367 : RUN 
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lá SO TO dj 
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183 RANDOUMIÍZE Cl+ãl 
di DRE ST+1L,PEER 23570: POKE 
ST+2, PEER 2357 1 

129 POKE MX+1.PEER 23670. PORE 


130 PRPER &: INK 1: BORDER 5 
"14B PRINT PAPER 2; INK 7; BRIGH 
ME é Ss MRMISTURA DE IMAG 


15% PRINT “ESTE PROGRANA UAI CO 
NBINAR QUAISQUER FIGURAS OU GRAF 
1C0OS QUE TENHAM SIDO GRAVADAS PR 
EVJTAMENTE COMO SCREENS . 

16% PRINT “UAO SER PEDIDAS 05 I 
MAGENS UMA DE CADA VEZ. MAI PERD 
ER OS ATRIBUTOS DAS IMAGENS QUE 
PASSARAM EM, PRIMEIRO LUGAR." 

Pd PRINT “PODE OPTAR FELOS ATR 
:SUTOS DO DESENHO QUE VAI SER CA 
RREGADO ODli TER UM DESENHO COMPOS 
To CON AS CORE DE INK E PAPER a 
SUAR ESCOLHA.” 

189) PRANT AT 19,9; PREPARE À & 
va CASSETE E ESCREVER O NOME Có 
PRIMEIRO SCREEN Ê 

RAN g,173: CRAU 
73: CRAU -253.,0 


200 INPUT “NOME DA FIGURA “51: 


TF LEN 15>10 THEN GO TO 200 

25 CLS PRINT AT 14,10; CACTUA 
RE O GRAVADOR": LOAD 1 SCREEN 
219 RANDUMIZE B+USR ST 

220 CLS PRIN 'à i FIGURA FIC 
DU NA MEMORIA. PREPARE FARA LORD 
AR 2 FIGURA . 

2390 PRANTO l GUER. RETER OS ATRIE 
TOS CA 2 FIGURA? 

22 ia PRINT. ii CARREGUE Ss (SIM) 
SU MN UiNAO! 
0 IF INKE wWã<s!" THEN GO TO 25 
260 LET ig=INKEYG: IF ig="" THE 
GO TO 2560 

279 LET aflag=d: ÍF ig<e>'5 AND 

LR<>)"S" THEN GO SUB 29 E 

259 PRINT AT 21,9;"AGORA PASSE 
R SEGUNDA FIGURA .” INPUT “NOME 

DA FIG." iêã: LET iã= + ii AND 
LEN im:=z1901: CLS : PRINT HR LO, 4 
SG; CACTUE O GRAVADOR LOA 1 &50CR 
EENG LF afiaagzô THEN GO TO 304 

249 FOR 1=225258 TO 23295: POKRE 
ri,att NEXT ii 

30) RANDOMIZE USKR 

319 ÍiNPUT “PARA. GRAVAR CARREGUE 

o D';i& LE its THEN GÔ TO 

320 IF ig="1" THEN INPUT “NOME 
DA FIG. º2";Ppg: IF LEN pgã>10 THEN 

LET póspgt TO 10) 
di IF ig="'1" THEN SAQUE páSscRrREE 

340 STOP 


” 


CLUBE Zso 


Os desenhos que farás no teu Spectrum, graças à lógica de 
PATRICK CABON, animarão os teus programas. Uma cria- 
ção para a criação. 

Todos os programadores que procuram lógicas úteis, inteli- 
gentes e bem estruturadas podem ficar contentes. Aqui está 
um programa que permite a criação de caracteres gráficos, 
programáveis no Spectrum. Com efeito, este programa 
permite desenhar no écran grafismos originais com cerca de 
1/2 cm de altura, que poderás, em seguida, salvaguardar num 
magnetofone e utilizá-los para animar os teus próprios 
programas. 

Os motivos criados, depois conservados no teu Spectrum, 
equivalem assim à execução das operações que permitem o 
movimento dos caracteres. 

O programa feito em BASIC, exige instruções longas que 
**omente a programação em assemblador poderão evitar. 
Um número binário de 8 algarismos cada ponto negro (escu- 
ro) toma o valor 1, os restantes o valor O. O Spectrum 
converte estes números binários em números decimais, an- 
tes de os colocar em memória. Um caracter é, portanto, 
representado por 8 números decimais. 

Estes números serão guardados nos endereços altos da me- 
mória viva, a partir de 32 600 na versão 16K, e 65 368 para 
a versão 48 K. A zona gráfica a utilizar compreende 168 oc- 
tetos (o O correspondea 21 caracteres), e ela é protegida de 
forma a não ser agredida pelas instruções NEW, LOAD, 
CLEAR, e outras. Somente um corte da corrente eléctrica 
poderá apagar essa zona. Por outro motivo, os caracteres 
assim salvaguardados são directamente acessíveis ao tecla- 
do de modo gráfico e são, portanto, re-utilizáveis, noutro 
programa. 


OS COMANDOS: para desenhar... o deslocamento do cursor 
“ue está no modo flash faz-se com o auxílio das teclas 5, 6, 
(, 8. Poderá, portanto, deslocar este ponto para qualquer 
quadriícula da grelha. Para validar um ponto basta usar a 
tecla N e a casa ficará negra! 

Uma segunda vez N e elimina o efeito anterior. Quando a sua 
composição vos parece satisfatória, registe-a na memória, 
usando a tecla E. 

Com a tecla S pode seleccionar um dos 6 caracteres que 
estão a piscar no quadro da grandeza real. Use a tecla V 
para validar. Deverá agir da mesma forma para escolher a 
tecla que corresponderá ao caracter gráfico. 

A gravação dos 21 caracteres em cassete faz-se por intermé- 
dio da tecla S. 

Não esquecer de dar um título com comprimento inferior a 10 
caracteres. 

Com a tecla D terá acesso ao detalhe do caracter que foi 
executado anteriormente e guardado com a Tecla E. 

No écran terá as indicações: ao alto... a letra do teclado que 
corresponde ao desenho executado, uma vista detalhada do 
grafismo com o valor do endereço de cada linha e uma linha 
do écran repete o motivo. Será fácil realojar um destes carac- 
teres num programa sob a forma de DATA. 


Um sub-programa carregará a lista quando da execução do 
programa, sob esta forma: 


FOR'N = 0. TO-F 

READ A : POKE 65368 + N, A 

NEXT N 

DATA d1, d2, etc... d8 (lista de 8 valores decimais) 


Este exemplo redefine o caracter gráfico A. Para B, será 

suficiente juntar 8 ao número 65 368. 

L — desenha o grafismo correspondente ao conteúdo dos 
bytes dos 21 caracteres em memória. 

A — desenha um dos caracteres definidos. Será pedido en- 
tão, a posição (linha, coluna) do caracter. Pode escolher 
entre desenho normal, invertido ou simétrico. Isto permi- 
tirá criar animação no interior do programa onde quer 
usar estes grafismos. 

T — permite obter uma grelha virgem, sem para isso anular 
os motivos já criados (idem, se usar as teclas S, L ou D). 


Atenção ...... a string V$ da linha 585 e introduzida em modo 
gráfico 
a string A$ da linha 580 e introduzida em modo 
maiúsculo 


VARIÁVEIS PRINCIPAIS 


l — LINHA DO CURSOR 

C — COLUNA DO CURSOR 

4C  — LINHA 

VC — COLUNA 

LE — LETRA 

Cõ (16, 24) : Quadro «imagem» da grelha 
dá — COR DO PAPEL 

E == 


POS — POSIÇÃO DO PRIMEIRO ELEMENTO 

DO CARACTER A REGISTAR 
DEC — NUMERO DECIMAL CONVERTIDO NO BINÁRIO 
OCT — VALOR DO OCTETO 


R$ — TIPO DE IMPRESSÃO 
LI — LINHA DE POSIÇÃO DO CARACTER 
AUMENTADO 
C/ | — COLUNA DE POSIÇÃO DO CARACTER 
AUMENTADO 
Letra do teclado H 
RLOR do Endereco 
ES35B Q 
65359 E 
poe PA | ES 
| B53%1 ES 
Bão 125 
6533 Es 
EãRrá E E 
ES: ç 
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5+Fil=0 THEN GO TO dgzco A B3Bo IF iúCT-INT OCTi=a THEN GO 
1ãA LET U=LIL ICRiE+IHC-IS) 43+1 TO 538 
«PUS+4FI) | 53780 PRINT AT L+1+54F+1,0+8-iR+U 
roda LET DEC=DEC+U Fat (f-Fl *E1;, DUER 1; PAPER E; 
Zed MEXT F 6375 PLOT OVER Sa Sicre- RAUSÉ) 
vaso POKE RAM+ILE+S) <E,CEC sre-l-1]+535Fi-d 
edad NEXT E b376 LET CRIL+I+SSF+IL,C+S-IR+AUZE 
300 PRINT AT 19,LE,CHRA dilds+Fi E Ts : 
casó PRINT OVER ã: FLASH G.AT LÊ A3so NEXT E 
LEO CAT HCsVUCI! 53950 NEXT F 
4d) BEEP .i,ly. GU TO 1900 Jd. Bida PRINT AT LC.LE, OUER 2," 
Soda REMN LIATA DE VALORES DES OC ESA BEEP .1,13: RETUEN 
TELS “BA REii SAUÚAGUARDE DS CARACTER 
Sos CLS ES 
91060 FOR F=i TO 2Zl ; “1 INPUT HT D.y;CQual o nome & 
S1llú PRINT OAT Polo; CHRS iJdz+ri Db ao qual quer lravar dO 
Slzôo FOR E=g TO E 5 CARACTERES?" ; Ng 
aliã PRINT AT E, Esd+l; PEER .FAIN+ "200 CLS : GO TO 2a 
E+F5D: 2200 REM CARACTERISTICAS DO CARC 
Ss178 NEXT E TERE 
5180 NEXT F ai e RD ca Syla CLS 
Sebo INPUT “QUERES UMA CÓPIA 15: sSopà LET L=19 
MIC: RS dd é Se ne SL PRINT AT LE,I- dg 
Sesyú IF Ru='0" OR Rã='o HEM ti 2ayas PLOT 15,136: CRAN 5B&S,a: DRA 
Pro cs PRINT o: LRBRAINTo” r Rã: Li B,-BS: DRAL -B5,3: DRAW B.65 
LPRINTO O: LPRINT é dg: GU age) PRANT AT 17, 1; CCARACTERISTI 
10 52d sr) CAS CO CARACTERE 
5309 CLS c GO TO Z0a 526% GU SUB 3590 
b)DA FEN aarandissement um cCaradr 82970 PRINT AT 21,1;B& 
LEITE Sid LEI Led: LET Lsl 
Goiy BEEP. 1:30... 3115 LET Rã='"N“ 
Basa LET LE=1. N » e S1i2y GU SUB Base. 
Bida INPUT “OUBAL à LINHA à OU 1% 851359 PRINT AT À, metra do téectl 
bu É -allis hoc caça 7" ado : CL CORE (B4+ siEi 
Bilw a “ EM QUAL COLUNA 3,12 slda PRI NT BT 53, 1l4, CUALOR do Ena 
Ulil essi ETEÇO: 
blza LET L=LI%3 3154 FOR F=8 TO 7 
Biso- LET Cais: 315% PRINT AT 5S+F.I1I:RAM+ILE+B) + 
Bliy LET P=IATTR iL+I,C+211:8 F;AT 5 20, PEER (RAM+ILEFS) +F) 
5190 LET LG=19 3180 NEXT F 
Boda vÚ Sig SED a seda FOR F=1 TD 31: PRINT AT à5, 
Bazo INPUT ART q,B;  IMPRESSAU NOR F;CHRS (143+4.E1: NEXT F 
MAL --:N Ai a a LHE T Enéas INEUT “QUER UMA COPIAS (SAN) 
RICO-->3"0:R E x “Rã ; 
5230 LET I=ô: LET 5=1:;: k&EToR=b: gs IF R$=!'5º OR Rãz's" THEN CO 
LET U=zi PY: GO TO 58390 
bB2do IF RE="Rº OR Rg='ro THEN LE 3490 CLS CO TO 2da 


RECTIFICAÇÃO 


Gostaria que, se possível, pudessem informar os leitores TOP 1 Õ 
quanto ao PEQUENO PROJECTO DE HARDWARE 


(Março 85, n.º 30) que o condensador C27, tal qual EM INGLATERRA NO CLUBE Z80 
vem expresso no texto, se refere às versões dois e 
quatro do Spectrum; isto são aquelas de que eu tenho 1 — Underwuride ie Ghostbuster S 
conhecimento. No respeitante às outras versões, quan- 2 — Daley Thompson's e 741 Flight 
do se for pôr o Reset deve-se verificar se o condensa- Decathlon Simulator 
dor corresponde ao citado no texto. 4 — Knight Lore 4 — Valkyrie 17 
As versões podem ser verificadas no interior do próprio 5 — Monty Mole 5— 3D Starstrike 
computador, o qual tem a versão escrita no próprio cir- 6 — Jet Set Willy 6 — Dukes of Hazzard 
cuito impresso. 7 — Chequered Flag 7 — War of the Worlds 
8 — Sabrewulf 8 — Cyclone 
PAULO METELO 9 — Atic Atac 9 — Match Day 


10 — Ghostbusters 10 — Gift from the Gods 


CLUBE Zso 


Se sente frustração com todos os programas comerciais e GRAU REV.: 
com as diversas tentativas para obter determinadas formas 
gráficas, experimente este SpirOgraph. 

Os valores das variáveis são apresentados no écran e todos 
os comandos estão descritos no MENU bastando para isso  PLOT: Desenha a figura. 
carregar na tecla respectiva. Atenção que umas são maiús- 


Número de voltas necessárias para fazer coincidir o final do 
desenho com o início do mesmo. 


culas e outras minúsculas! 1 REM, PESE nha ALEXANDRE JO 
A TECLA 'p” dará início ao traçado e note que se os valores AOLOG à é 
de 'd' ou 'n' forem nulos, o programa não inicia o desenho. | CErcdo Peres GS Biel Dia Fá 


Se tiver qualquer problema use GOTO 20 para não ter de 


E 
repetir todas as variáveis. T N=B: LET X1=128: LET v1=87: LE 


T T=z] 
So LET Z=350: BRIGHT BRI: CLS 
RINT AT D,a;" SP IROGRAPH": PR pa 
o BRENT INK PRPER a 
A N “a a : + aa 
1 RR der AB 15;"Z...RCTIU. BRILHO”: PRINT 
"se STARTO;TAB 15; “d.. GRAU OS o 
TART: o À 
es ta PRINT Ra A POG a" TRO LO: 
Trata-se da posição na circunferência de um círculo imaginá- sã aan E L LE ge RS us Mac Pós 
rio a partir do qual o primeiro arco verdadeiro é desenho. 59 PRINT “Q. «RED CIR “SS EMO LB 
Por exemplo: «O» significa Start no cimo; «270» significa Start » Barca AD. CURURO 


By PRINT ne La 2 «RALO CIR “TAB 1 


no ponteiro das 9 horas, etc.! S: Cb... CURVAT. O: PRINT no... NUM, 
ia ; TAB A «a «GRAUS Rev. ": 
e “p asa 
GRAU OSC.: ?2 PRINT AT 13,15;"x = ";X2;TA 
B 23; "xdesl = “;xs 
Número de graus de um arco traçado a partir de um centro ae” PRINT AT- 14,15;"u= “";ui; TRAB 
imaginário (x, írcul srudesi = “;uys 
dd dida Sô PRINT AT 13,B;“circ= cicr: 
— «80» dá uma forma de 6 pontas Ri pa RS 5 nda A poi GRAU = 
— «70» dá uma forma de 5 pontas, etc. 190 PRINT “CURUAT= "; bz180/PI: 
PRINT “rev= “;t: PRINT "RED. CIR 
o dtia DA. “AD. CURVAT = “eo 
1 ; "carregue numa ter 
x, y POS.: La para a oprcao” 
a SA LA Lo. ET E SNKREYT E: IF hO="" THE 
Dá a posição imaginária do centro do desenho em PIXELS; N SO TO 11 
as coordena : 120 IF ge; “ THEN INPUT INK 
enadas do centro são (128,87) aii o ENPUT "PAPER ip: PAPER a 
; 1 P ae 4 Ú 
PLOTS: Número de traçados que concluem o desenho 130 IF h5='z2" THEN LET Eri =NOT 
pretendido. bri: GO TO 20 . 
- lãd IF hã="5" THEN INPUT “start 
x, y Deslisamentos: “18: GO TO 20 
130 IF hã='dº THEN INPUT “arau 
Numero de pixels a serem adicionados ou subtraídos a partir pd: E [O 20, e ER ig pai 
do centro imaginário após cada desenho completo. ao E a PD RE 
eo IF E fa rã INPUT “x des 
. Ausãs K 1 RE: is Ú 
RAIO CIRC: 160 IF hg="u THEN INPUT “uy pos 
Raio de círculo imaginário no qual se desenha a figura. A CR a A INPUT “uy des 
“doa TÉ hº=ca” THEN INPUT “Red 
º e Sa Ka , al 
“RED. CIRC.: = "Pta: co To 28 : e RR 
É - “ q Li 
Achatar ou reduzir o círculo em termos de percentagem (re- Ei e aa gia Fa sc i 
duz todo o desenho): RED. CIRC. = 5 reduz todo o desenho 220 IF hyg='co THEN INPUT “Raio 
em 5% all “a tro GO TO 28 £ 
pica 230 IF hã=]b" THEN INPUT “Curva 
Ea gos ET cg ereto ERA TO 20 
p ad ham="'n" do AT 
CURVAT.: : 60 To 26 ad á 
Número de graus através do qual se modifica a direcção em | Da dl THEN INPOT Tev 
um arco de um dado «grau osc.» 260 IF hg='p” THEN GO TO 300 
300 ZE 4-0 OR Q THEN GO TO 20 
a 300 = OR n= ts Ú j 
AD. CURVA: 319 LET v=z:d: IF INT wuzy THEN 
Número constante de graus a serem adicionados (por cada da -7+360: IF z>7200 THEN 
desenho completo) de modo a realizar a curvatura. GO TO 26 


CLUBE Zso 


o) 


—— . mecenas ++ ares rs aros mrdiio meat eps rs coca + Ds Dus 00 CrmTTO+ ETs emos umas + me 
e. ' 


EE =: eo 
e % k DA TA e o 
r TA A AL 4 


3399) GO TO 314 
So LET ceqetaz190D: LET ksxa: L 
ET ERr: LET Cir=tr: LET bd=b 


E FOR r=0 TO n-l: FOR a=0 TO 
E 


360 LET rad=zirãkt+razxd+s) v180+5PI: 
LET radôs RES aaa) Soda aa 
3920 LET sin=zi5SIN radiscir LET 
sinagz (t5SIN rad2) Ecir 

4990 LET coszilcos radi) gcsir: «LET 
cCOSs2=icos rad2) +cir 

412 PLOT x+sin,4u+cos: DRAW sina 
-SiN,cosêg-cos, bd 

4280 IF INKEY$&:>0" THEN GO TO 56 


+45: LEIL Cifet 1:. LET bd 


=bd+ba-1895PI 
dado NEXT cr: PRINT AT 21,0;'menu 


im) LPRINT 41) 


o 
430 NEXT à: LET xexexs: LET cu 
x 1 


start grau x pos y pos 
FIG. 0 20 128 87 
FIO. 2 O 180 920 87 
FIG. O 40 20 87 

0 


FIG 4 2 128 87 


E 


La, 
| aaa A dio) 
f dis RR 


——— us em cms o cu + pi as Ss ias SETAS rs Td e o 


emrh 


mens (ml LPRINT Ta 


“x des! y des 


0 
E 

2.) 0. 
0 


452 LET hã= INKEY $: 
THEN PRINT AT 21, 
G0 TO 4490 


EN 50 TO 
2458 IF ngs “1º 


B 600: COPY 


4") GO TO 4dSQ 


LF hg='mº TH 


SO Su. 


São PRINT AT 21,0, “menu im) con 


t; DG) LRREND Ca 
10 LET md INKEWY &: 


THEN PRINT AT 21, 


EN is TO 
q9E0 IF nã="c" 


“*. BO SUB 600: 
THEN PRINT AT EL, 


0530 IF ha=r1º 


“1 GO SUB 600: 
40 DO TO SBB 


NI oO 


E ME A E E 
EPI LA 
E À e 
d - 


Pis 


A 4 
k , | | Á RE 


il , 
1 Ê RO 


qn 4/4 3 | 
menu im! LPRINT til Eca nad ind 


| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


menu imo 


DRAW 255,0: 
35,0: 


2 
pe 
JJ 
- 
! 
na 


| Ca 

| SE Es di 

| PA LA LO 
gut sa 

Hm 

y PA) | 

| 


IF h$="m" TH 


SO TO 380 
COPY o: GO TO 504 


DRAIS 
DRA d,-175: 


red c. ad.c. raio curv. n rev 


2 
0 
0 
3 


80 300 5 0 
80 40 3ó6 
0 30 30 
80 60 30 


ws cn 


| 
| 


e ms su. sr a TO a Tr a + Tc | e pe e 
se cao. usamos 


(TUNING UP) — Adaptado do Your Spectrum n.º 12 por: 
ANA PAULA. 


O comando BEEP que existe na linguagem BASIC usada 
pelo Spectrum, pode ser manipulado de um modo eficaz para 
produzir tons. 

O conhecedor da música pode programar, a partir de MÚSI- 
CA escrita, que está disponível em qualquer loja de 
instrumentos. 

A notação musical pode ser traduzida em valores numéricos 
correspondente à altura do som e ao tempo. 

É evidente que pode ler música com alguns programas co- 
merciais, especialmente aqueles que usam o teclado do 
Spectrum como se fosse um piano. 

O programa que vamos reproduzir permite-lhe a entrada de 
cada nota como uma letra musical, seguida por um número 
que significa a duração dessa nota. Pode ainda indicar se o 
nome é grave ou agudo. 

A notação musical geralmente comporta dois tipos de infor- 
mação: a altura do som e quanto tempo leva a concluir. 
O tom de uma nota é mostrado pela posição ocupada na 
pauta (fila e 5 linhas); as notas podem ser colocadas sobre 
uma linha ou no espaço entre duas linhas. 

Para nos indicarmos que uma nota é grave usamos o siímbo- 
lo Y% e se é agudo usamos o símbolo ?. 

Se esse símbolo aparece muito no início da pauta significati- 
va que todas as notas serão afectadas. 


Notas sobre o programa 


Linhas 10- 70— Faz os gráficos do programa 

Linhas 80-180 — Inicializa as variáveis 

Linhas 200-450 — Inicializa a subrotina de Input 
Instruções completas para o Input 

Linhas 470-490 — Esta rotina toca a melodia 

Linhas 510-650 — Dá um menu de 8 opções 

Escolhe uma opção e esta rotina manda para as subrotinas 
nas linhas 660-800. 


MENU 


1) ENTRA MELODIA 

21 TOCA MELODIA 

31 TOCA OITAVA ACIMA 

E] TOCAR OITAVA ABAIXO 

Si AUMENTA TEMPO 

Ei CIMINUI TEMPO 

?1 ESCREVA DATA 

o | LiNPAR OCITAUAR E TEMPO 


E ES 


Ti 
Mo ftanie 


7] 
La 
Ro, 
er 
Tí 


14,3,5,56, 120,245,2d0, 
14,3,14,56,120,2453,240 
LºUSk "aC TO UR e" +: 


PORE à, NEXT 4 
do tempo=lê 


á u 
o 
4 
gi 
Tt 
| 
Ti 


x 
um «NT 


DELES mes me ERA IES 
mn 


a 
“+ O 
! : Enc 


[7] 
an RS 
sort 


3 [id Ud por “ea 
Ay 


Pa De Ta 


1 BA, md = 


gd To 


pos 
Es tn 
DO FOOL 


peso 


Je ' 


lda FOR 


EXT 4 
169 FOR 1=15 TO 34: REBD agiil: 


= 


PRINT “* PODE ENTRAR 
(INTERVALO DE DUAS OITAR 
Sã DO Setas gs 


cri 
= 
f. 
= 


eo STD CA 


pro Tunis Me 


E; 
ED pes DOT qe q GA IM 
E io Tre AR» 
a o. e] 

U 

r 

ci 


bo 


sc, 
58 DR nda 


Mo + [1 dy EL 
o 4 Cri 


+ 
To 

“e 4fi pa 
mM 


t 4) 
as 
es 

= To 
To 

Us] 


CTT du + 
Hi 
ds 
| UT! 


CU frito cu 


a E 
a 


Mm Ev TI ET 


= 
E 
+ 
Pb 
[wa 


— 

po 

= 
=) 


esu LE nãso". LEA" 

edú INPUT “NOTA ou FIMC;ig: IF 
L&=0C THEN GO TO ZiB 

os T 1E="Fimo OR 1 G=ºFIM"C TH 


THEN IF iáio) 
isizg) <>"H" THEN BEEP . 


DR COBRE iã>712 
CÚDE 16>:103 T 
E 
ss 


LA ES gd 
a TU 
2 ol 
T 
WE) C) 
º ft a 
fui MM 
ta +p E» 
++ [TI TE 
ps 
4A 
H 
<a 


LT cdi 
Rn if="cáA'o OR i 
a THEN BEEP .5,- 
UR 16=]"CA' O 
THEN BEEP . 


Si 
- cds: DERFP «do de 


x 
Mn NMNZ 
CA 
DP RRRI! 


14 Si 

mM 

4 PRI 

QuaemaocnacTimamn + 
k 1 

1 Le 
Fern 
ESA MH 

nos 

dE 


ses 
e. 


“uy 
po 
| 
Hm 
Ti 
pes 
4R 
7 
na 
EN 


E ECA E 


IT “"BURACAO DA HMOTAC:d4&: 

TEREM BU TDO-Z18 

CODE sácia DÊ CODE 16:59 
S,-5: O TO SAIO 

bs DEEM «dyie 

IP LEN 54=1 THEM LES 186=: 6+ 


IF LEN 4g=1 THEN LET ás="0" 


LET tá=igê+ia: LET nã=né+i sd: 
ati 

Q CDL5 : PRINT AT 194,18; FLASH 
“AGUARDE POR FARAUORC: LET tõ&=t 


CART 


E HA Ds E (a 


des 
E 
m 
m 
E 


ATA REATETATE 
E Pt 

m 

mi 

mM 

TV 


3 et. 
UTM LM Ee CIT POTE GGI Gm CU Td 
E! 


dps iG) UA. Cl 
É É 
Es! 
— 
13 


“e 
o. 


+. 
as 


CLUBE Zs0 


Ed 
2) 


CAUBE Z% = OC[ ]zbDDODD O DEE ER ae eee ee 4) 


3550 LET pã= FOR i=l TO LENn boa Gts : EO FO SID 
& STEP é: FOUR Jeli TO J4: EF NnNHtr sy LET oct=nct+i12 AND oct<=da 
TO i+lis>ragis) THEN NEXT q o GO SUB 4738: RETUEN 
390 LET kKg=zSTR$ atgy): IF LEN k$ Ea LET act=0oct-(12 AND oct>=-3 
=1 THEN LET kE=0+0+4kB 31: GD SUB áFa: RETUBEN 
409 LET pá=par+ka+táãi TO 21: LET Ben LET temoaoztenpo+>: GÔ SUB à 
téztgis TO “a: RETURN 
Ala NEXT a SGA LET tempoziempo-l AND tempo 
dc) LET qg="" 21: GO SUB d70: RETURN 
dsy FOR i=1 TO LENPS .?00 CLS » FOR izi TO LENAaS-3 Ss 
âiiy LET aqã=96+pEili: NEXT à TEP à 
453 RETURN | F Zi) LET dsVAL-QS1142 TO as+3): 
4&2W) FOR 1=1 TO (LEN 978) -3 STEP ET 2=UAL qãir TO 1+11: PRINT “BE 
É | ANDA CRC EP SETE 
439 LET d=UAL gqsii+E TO i+3) L “ey IF PEER 23689=d THEN GO SUB 
T a2=UAL 2Q6&ili TO i+11: BEEP drte 753 
mnpO,Pp+OCI 50 NEXT 5 
iayú NEXT 1: RETURN viá GO SUB 7580: RETURN 
SslA-ELSs : FRINT =“ “Sã PRINT HT 21.0: USA A INPRE 
MEN! S5aD2A Sisim! Ninaoi” 
É N BD IF INKEYvG<:>"" THEN GO TO 76 
seú PRINT “11 ENTRA MELODIA” pa 
são PRINT o Ce TOCA MELODIA“ Ze) LET -LEsSINKEYVGA: IF if="" THE 
Sidi PRINT o oCai TOCAR OITAVA BCI NsO-SE AB 
= OO JF saelul OR sta Te THEN CO 
sy PRINT “43 TOCE OITAUR ABR PY : ELO FRETUEIN 
ENS O “à PORE 23692,255. RETUEN 
Spy PRINT no BUMENTA TEMPOS Sta SAQUE “musico LINE LB 
pm So PRANT = CIMNINUIT TENPOS 
| sã PRINT a ESCREVA CATA 
adia "83 LIMNPRBE DOITAUA E 
MPO" 
Es 
(510 RT de RISE, TE ge THE AS REVISTAS DO CLUBE Z80, 
mos q LE 
b=A IF CODE 1ã:53 DR CODE 16:56 4 o 
Ss) IF 45="8º THEN LET temposzãe6 
LET oct=d: GO TO 5BY é 
Bão GÓ SUB (196 AND ig="1"I +46 ——— Contactar com JULIO VELOSO 
o ANO iuz 20) +i6640 AND Li6=]301+1 
Ba AND is="4"1 +(6B0 AND 1 8="5") Telef. 667051 
(890 BAND rg=C2Ciridada AND 16='7 
“a 


LISTA DE REVISTAS DE INFORMATICA Es E E 3100800 
E PREÇOS POR LOTE 


CO LOTE 1 ease O LOTE O ea ra 1600800 
7 Mini-micro; 9 Revista de informática; 1 Micro- 12 Cinclii dE 
hoby e 1 Micro sistemas. 6 Sinclair programs 
To j 4 = E A A A 800$00 iBest of sic. prog. 
2Your spectrum 
8 Soft 
LOTE 10 eps a it capa tea 600800 
LOTE SD asian do o o br a 900800 Ea 
9 L'ordinateur personel 
10 ZX Computing 
LOTE 1) canósisa dadas ai Eid rei ad e 1300800 
LOTE RO Sosa td a te ad 600800 
17 Pratical computing 
6 Microcomputing 
Fe E SE E SE DR PE 1800800 
LO TO sos Esp a DS Si NO 2600800 | 
26 Your computing 
52 Popular computing weekly 
LOTE 13 ausbinasticastad LÃ pda ES Serge ls ci eli cresc RNTDOO 
Pod A E E 3800800 La 
8 Micro decision; 4 Which computer?; 3 Compu- 
38 Personal computer world ting; 6 Eletronics: 6 Electrónica; 25 Systems int. 
e RR e RR RE 3600 - 
AD dd si o OBSERVAÇÃO: se houver despesas de transporte serão 
61 Personal computer news debitadas. 


10 


CLUBE Zso 


Autor: PAULO METELO 
Oliveira de Azeméis 


Este programa é dedicado a todos aqueles que estejam a dar as numeros indicam a ordem pela 
Os primeiros passos na reparação de receptores, e porque : pedi E devem verificar OS rece- 


não, mesmo para aqueles que já sejam reparadores e que 
queiram tirar partido do programa, para uma maior eficiência 
no trabalho. 

As avarias em causa tanto podem ser aplicadas a receptores, 
a transistores, como aos de válvulas. 

O programa divide-se em um conjunto de sintomas e duas 
maneiras de verificar os receptores (por osciloscópio e injec- 
tor de sinais) e ainda tem a maneira de se fazer o alinhamen- 
to final do receptor, isto para todas as bandas. 

O modo de funcionamento é bastante simples, pois o progra- 
ma é de estilo EXPERT SYSTEM. 

O menu consta de: sintomas, osciloscópio e injector de si- 
nais; se escolher uma das duas últimas opções verá apare- 
cer no écran como detectar a avaria por um dos métodos 


conforme tenha sido a sua escolha; se, por outro lado, esco- OMENTO No Sub AB ho CURRDE UM M 
lher logo o primeiro elemento do menu (sintomas) terá de a US ORDER 6: PRINT AT 5, 
e — DETECTAR A AVARIA POR:O; 
escolher em seguida entre ter uma audição fraca, nula ou O AT 8,3; "SINTOMAS". AT 10,3: “OSC IL 
receptor tem outros sintomas. OSCOPIO";AT 12,3; " INJECTOR DE 51 
Em seguida, se escolher «outros sintomas», terá de escolher pera ú a PIA 2? "sr AT 10 
o número da avaria correspondente, e em seguida é-lhe da- á o IF INKEY S=" a THEN Go TO 9 
do a causa provável da avaria. 4 LF INKEY &=" O" THEN GO TO 78 
Por fim, é-lhe perguntado se quer ver como se faz o alinha- 39 Ss IF INKEv$="i" THEN GO TO 81 
mento e, no caso da resposta ser afirmativa, terá de escolher Va NR a q q 
entre 2 blocos «OM/OL/OC» e «FM»; em qualquer dos ali- rm Eq IF INKEvE<>"S,0,i" THEN GO 
nhamentos o programa dar-lhe-á o alinhamento da F.l. e do 3 CLS : PRINT AT 10,0; "TEM UM 
pa à: "TEM OUTROS SINTOMAS * cf +4nH0 
Ao fim de cada alinhamento ele pergunta-lhe se quer repetir j T 
algum dos alinhamentos anteriores ou se quer voltar ao me- am IF INKEwg&="F" THEN GO TO 7a 
nu principal. 14 IF INKEvy$="n" THEN GO TO 75 
of 
15 IF INKEv$="0" THEN GO TO 27 
Ag INKREYg<>"Fan,o” THEN GÓ 
H at 
à 17 CLS : FOR f=72 dm 143: PRIN 
ao Mr 8, 15; "DE"; AT Tó, 12; "AVARI 
SINTOMAS $ IE OPLOT 255,f: PLOT O,F: FOR 9 
- E! g: 
ENUELTOR DE SINAIS à 2o PRINT PAPER S; INK B;AT 6,1 
2: "SINTOMAS"; PAPER O,AT 8,48; 
1 PAPER 5, INK D;AT 19,125" GE 
o pais Po PAUSE 109: CLS 
| 25 CLS : PRINT “1 RUIDOS AO ro 
darmos O VOLUMES: PRINT o: PRINT 
“2 RUIDOS INTERMITENTES QUANDO 
ana OR ESTA A FUNCIONAR” 
| : 
a? PRINT “3 RUIDOS ELECTRICOSO 
PRINT : PRINT “4 RECEPTOR HUME 
NTR E DIMINUI DE VOLUME": PRIN 
T : PRINT “5 O VOLUME VAI DIMINU 
INDO, LIGANDO E DESL IGAND 
so. RECEPTOR O VUOLUME U 
OLTA RO NORMAL: PRINT o: PR 
INT “EB O POTENCIQMETRO NHO DIMIN 
LT TOTALMENTE O VOLUMES PRI 
NT : PRINT “7 UMA ESTACÃO APAREC 
Formas de onda que deverão ver E-EM DIVERSOS PONTOS” 
no osciloscopio nos pontos 2a PRINT : PRINT : PRINT “8 O 


indicados. RECEPTOR RECEBE POUCAS ES 


CLUBE Zso 


= 


TACOES": PRINT : PRINT “9 RECEBE DUE AS BOBINASS DO ANDAR 
UMA ESTACAO MUITO * FORTE DE R.F. PRINT : PRINT “4 VERIF 
E AS DUTRAS MUITO — FRACAS TIQUE õ PRIMEIRO TRANSFOR- MADOR 

0 PRINT O: PRINT “10 QUANDO SE L Ei é GO SUB 49000 

IGA A ANTENA O RECEPTOR BA 50 PRINT “1 VERIFIQUE TRIMMERS | 

IXR DE VOLUME": PRINT : PRINT “1 E ENROLA- . MENTOS DO TRANSFOR 

1 O SINAL PERDE A INTENSIDADE E MADOR DE R.F. PRINT : PRINT “2 

A RECUPERA NOVAMENTE “ fadding' VERIFIQUE O OSC ILADOR LOCAL: P 

“1 PRINT RINT : PRINT “3 FACA UMA AFINACA 
31 PRINT “12 RO AUMENTARMOS O D GERAL'': GO SUB 4000 

VOLUME, O RECEPTOR APITA FO 1990 PRINT “1 VERIFIQUE A LIGACA 

RTEMENTE”: PRINT: PRINT "13 A 5 O DA ANTENA": PRINT o: PRINT "2 F 

RIDA TEM DISTORCAO": PRINT PRI ACA UMA AFINACADO GERAL": GO SUB 

NT “ld O RECEPTOR ESTA FANHOSO": 1900 
PRINT : 1190 PRINT “SE ACONTECER EM AM. 

33 PRINT : PRINT “15 O RECEPTO “: PRINT : PRINT “1 COM UM OSCIL 

R NÃO FUNCIONA EM O eli PR ADOR VERIFICAR ETAPA POR ET 

INT : PRINT "15 RUIDOS DUANDO SE RPA ATE A CONVER- SORA": PRIN 
PROCURA UMA ESTACAO": PRINT : PRINT "SE O SINAL SE MÂNT TUE E 

: PRINT “17 AUDICAO FRACA OU NUL CONST - ANTE O RECEPTOR NAO TE 

R NAS FREQUENCIAS BAIXAS": NM AVARIA.: PRINT “CASO CONTRARI 
PRINT : PRINT “18 AÚDICAO FRACA O EXISTE UMA UMA ETAPA AVARIAD 
OU NULA NAS FREQUENCIAS A a“: PRINT : PRINT “2 SE O FADDIN 

LTAS": PRINT: & ACONTECER EN D.C. 1550 E NORM 

34 PRINT "19 EXISTE DISTORCAO AL": GO SUB 4900 

QUANDO SE SINTONIZA UMA EMI 1200 PRINT “1 VERIFIQUE OS CONDE 

SSORA ” POTENTE": PRINT: NSAGORES DE FILTRO": PRINT P 
PRINT “28 OU RECEPTOR FOGE DA FR RINT “2 OU ENTAO COLOQUE UM COND 

EQUENCIA": PRINT : PRINT “21 OR ENSA - DOR DE .5MFD NA SAIDA DO 

ECEPTOR APRESENTA UM FOR FI- TRO": BO SUB 4000 

TE ZUMBIDO" 1300 PRINT “1 VERIFIQUE O ALTIFA 

36 PRINT : PRINT : PRINT “22 A LANTE: PRINT : PRINT “2 VEJA AS 

O SINTONIZARMOS UMA ESTACAO O POLERIZACÕES DOS ANDA- RES DE 
RECEPTOR PRODUZ ASSÓOBIOS": PRIN B.F.": PRINT : PRINT "3 VERIFIOU 

To: PRINT d3 EXISTEM BLOQUEIOS E OS CONDENSADORES DE DESACOPL 

EM B.F,": PRINT PRINT “2d EXIS RMENTO": PRINT : PRINT “4 CONDEN 

TE UM SOPRO DURANTE À RECE SADORES ELECTROL ITICOS COM FU 

PCAD": PRINT : PRINT “25 ADO LIGA GAS": GO SUB 4000 pi 

RMOS O RECEPTOR OS ELECTRO is200 PRINT “1 VERIFIQUE OS CONDE 

LITICOS FERVEM": PAUSE 3900: CLS NSADORES DE ACOPLAMENTO DOS AN 

- 39 PRINT AT 19. 1;"QUAL O NUMER DARES DE B.F.“: PRINT : PRINT “E 

O DA AUARIA QUE Ó":AT HE ar SEU VERIFIQUE O CONDENSADOR QUE 

RECEPTOR APRESENTA 7": INPUT LIGA HO PONTO MEDIO DO POT- 

42 IF a<l OR a>32 THEN GO TO 3 ENCIOMETRO PRINT : PRINT "3 U 

3 E ERIFIQUE AS VALUULAS OU TRA- N 

45 CLS : GO TO asz100 SISTORES DE SAIDA: PRINT : PRIN 
100 PRINT “1 A SUPERFICIE DO PO T “4 VEJA OS ELECTRO. DE SAIDA E 

TENCIOMETRO ESTA SUJA LIMPE-A 0 TRANSFORMADOR. VEJA Os ELEC 

COM ikontakt 690)": PRI TRO -LITICOS DE FILTRO": Go SUE 

NT : PRINT “2 A QUPERFICIE. ESTA 4DBE 

GASTA. SUBSTITUA-D": GO 5 1590 PRINT “1 VERIFIQUE SE EXIST 

UB 49090 E UNA OSCI- LACAO DENASIADA FR 
200 PRINT “1 MAU CONTACTO NO CU BOCA OU UMA INJECCÃO INSUFICIE 

RSOR DO POTENCIOMETRO": PR NTE DA 0S- CILACAO NO MISTURA 

INT : PRINT “2 LAMINAS DO C/U EM DOR": PRINT PRINT “2 VERIFIQUE 
CURTO": PRINT : PRINT “3 PARTIC VALÚULA OU TRANSIS- TOR DE O. 

ULA METALICA NO ALTIFA- LANTE" D.C: GO SUB 4000 M 
| PRINT : PRINT "4 MA SOLDADURA" 1BvoO PRINT “LIMPE O Coy E VEJA 5 
| PRINT : PRINT “S PARTICULA MET E EXISTEM CURTOS": GO SUB idosa 

ALICA NO CIRCUI- TO": PRINT 1708 PRINT “1 CIRCUITO DE ANTENA 

PRINT “6 OXIDACAO NOS CONTACTOS” DESREGULADO”: PRINT : PRINT 2 
: GO SUB 4000 CIRCUITO DE ANTENA CORTADO": PRI 
300 PRINT “COLOQUE FILTROS NO 5 NT: PRINT “3 POLARIZCOES INCORR 

EU RECEPTOR OU TENTE COLOCAR O R ECTAS": PRINT : PRINT “4 VEJA OS 

ECEPTOR DE FORMA A NAO APANHAR CONDENSADORES DE DESA-  COPLAME 
OS RUIDOS": GO SUB 4008 NTO: PRINT : PRINT “5 PRIMEIRO 
400 PRINT “1 VERIFICAR OS CONDE TRANSFORMADOR DE F.I. DESAJUSTA 

NSADORES DE PASSAGEM NA ETAPA DO“: PRINT : PRINT “E CURTO NO E 

DE B.F.: PRINT PRINT “2 VERIF sd PRINT O: PRINT O º7 UALUULA OU 

ICAR O CONDENSADOR DUE UAI L TRANSISTOR DA ETAPA DE R.F. EM 

TBAR AD PONTO MEDIO DO POTEN MBU ESTADO": BO SUB 4DDO 

CIOMETRO DE VOLUME": GO SUB 4DDB 1806 PRINT “1 CIRCUITO OSCILADOR 
500 PRINT “GERALMENTE E UM COND PODE ESTAR DESREGULADO": PRIN 

ENSADOR NA ETAPA DE B.F. QUE FI Ee o dd "2 UBLUULA OU TRANSIST 

CA EM ABER- TO DE FORMA INTERMIT OR OSC DEFEITUOSO": PRINT 
ENTE": GO SUB 4990 - PRINT “3 VERIFIQUE A TENSAO DE 
500 PRINT “LIMPE-O SE O MESMO N ALIMEN-  TACAD": PRINT : PRINT 

AO VOLTAR RO NORMAL SUBSTITUA- "à VEJA 5SE A TENSÃO DE OSCILACA 

O": GO SUB 4200 O NRO E DEMASIADO FRACA": PRIN 
700 PRINT “1 A RODA DE ARRASTO E PRINT “S CURTO NO Co4": PRIN 

DESAPERTOU- -SE DO EIXO DO C/U T : PRINT "6 PRIMEIRO TRANSFORMA 

“PRINT : PRINT "2 VERIFIQUE O DOR DE F.I. CESREGULADO": GO SU 

ÚSCILADOR LOCAL": PRINT O: PRINT B 4908 

"3 REGULE OS TRANSFORMADORES DE 1990 PRINT “VERIFIQUE PRIMEIRO A 

F.I.": GO SUB 4000 DETECCÃO E AS PAS o. 
Boa PRINT “1 VERIFIQUE O Cru": DEPOIS SIGA OS PONTOS ABAIXO IND 
PRINT : PRINT “2 VERIFIQUE O CON ICADOS.": PRINT PRINT “1 TENSA 
VERSOR": PRINT : PRINT “3 VERIFI O DE C.A.G. NULA OU FRACA”: PRIN 


12 CLUBE Zso 
T : PRINT “2 VERIFIQUE O CONDENS «tao normais VERIFIQUE A PRE 
ADOR DE are  SRCOPLAMEN NTO DA LIN -AMPLIFICACRO E à AMPLIFICACA 
HA DE C.A.G. PRINT : PRINT “3 GDE BF 
TENSÕES DE BoLARIZAÇAÓ FRACAS: "005 PRINT : PRINT “3, se tudo e 
PRINT : PRINT “4 DIODO DE AR ie Stiver em ordem > JERIFIQUE . 
CIMENTO DEFEI- TUOSO": PRIN : O DIODO DE DETECCROC: PRINT :. P 

BO SUB dB RINT “4. se o diodo esta bom VE 
2000 PRINT “1 VERIFIQUE A TENSBO AR RAS TENSÕES NOS ANDARES DE 
INT "2 VERIFIQUE O OSCILADOR": G "GH PRINT o. PRINT a ZE as ten 
O SUB 480 S0ES estao normais JERIF IQUE 
21900 PRINT “1 VERIFIQUE A TENSAÓ d GSANHO DE CADA UM DESTES AN 

DE ALIMEN- TACÃO": PRINT : PR DRARES ilusando um qerador d 
INT "2 VERIFIQUE SE O RIPLE DA À E HE +FT) e 
WI- MENTACÃO NAO E NUITO ELEU 7011 PRINT : PRINT "6. CEPOIS DI 
ADO“: PRINT : PRINT “3 VERIFIQUE STO LOCALIZE O ANDAR AURARIADO 

OS CONDENSADORES DE FILTRO E E A) ELEMENTO QUE ESTIMA. DEF 
O buzpass": PRINT : PRINT “4 VER ELJTUDSD E 
IFIQUE OS CONDENSADORES DE DES "013 PRINT : PRINT “Ta-VEPDIS DE 
ACOPLAMENTO DA ALIMENTACAO DE SUBSTITUIDO O COMP- ONENTE iS) 
CADA ANDAR: PRINT PRINT o VE PROCEDA À UM REALI -HAMENTO 
RIF IQUE OQ CGod.V.-: PRENT PRINT NOS ANDARES DE FI CF e HF' 

“EB VERIFIQUE SE EXISTEM MAS MAS "215 PAUSE Ilda 
- SAS": GO SUB 4dBJO “820 ULS : PRINT AT 8,5; “QUER VE 
2208 PRINT “a DER TF TOUE à TENSAO R COMO SE FAZ';AT 19,4; " O ALIN 

DE FALIMEN- TACAO:. PRINT : PR HAMENTO * issn1 o 
INT “2 VERIFIQUE OS CONDENSADORE *"BQ4Ld IF INKEyg&='"5" THEN GO TO 76 
a DE FILTRO E O byzpass'": PRIN (a 
T : PRINT “3 TENSÃO DE INJECCAO 70592 IF INKREYr$='nº THEN GO TO 2 
DO OÓOSCILA- DOR BASTANTE GRANDE “060 IF INKEyg&<:>s.n" THEN GO TO 
“ PRINT PRINT 'd MAU ALINHAME "04 
STO DA, F.tso: RINT PRINT “5 N v"20B STOP 
EUTRAD INAGEM INCORRECTA DAS E 7500 CLS : PRINT “12. VERIFIQUE S 
TAPAS DE F. P " RAIN : Q E AS TENSDES SAO NORMAIS": P 

DESACOPLAMENTO DA ALIMENTACAO RINT : PRINT "2, se as tensões & 

DE CADA ANDAR INSUFICIENTE: PR 30 normais EXPERIMENTE UM. 
INT O: PRINT “7? DESACUPLAMENTO IN DUTRO ALTOFA- LANTEC: PRINT 
SUFICIENTE NA LINHA DE C.A.G.' PRINT “2.1 se tudo continuar na 

PRINT: mesma VERIFIQUE A ETAPA DE 
2205 PRINT “B MAS MASSAS": PRINT B.F." 

- PRINT : PRINT "3 REACCAO POR "504 GO TO TABS 
ACOPLAMENTO ENTRE US CLIRCUTTOS "600 CLS : PRINT FLASH 1; RT ED, + 

DE SINTONIZAÇÃO E O ULTIMO AND 1; 0M/0L 200 1 AT desãl, FM 
AR DE F.Il.": PRINT : PRINT “IB E 
NROLAMENTO CE ANTENA CORTADO. & 7601 IF INkKEv$&="1" THEN GO TO 76 
O SUB 4900 20 
2300 PRINT “1 Aa e ue Os CONDE 7602 IF INkKEYyg&=º2" THEN GO TO ?7* 
NSADORES DE FILTRO": PRINT = Ea 
RINT “2 VERIFIQUE OS CONDENSADOR "603 IF INKEYg&<:.>"1,2" THEN GO TO 
ES D DESACOPLBMENTO DAS ETAPA 7601 
5": PRINT o: PRINT “3 VERIFIQUE AR 2080 CLS :- PRINT ET U,la, Pele: 
5 TENSÕES". GO SUB sado ET 2,93,"1 COMUTADOR EM O.M.": PR 
S4ádOo PRINT “1 DESALINHAMENTO DA INT : PRINT “2 CURTUCIRCUITAR E 
Pede E DO. CONVERSOR": PRINT GOBINA OSC. DE do: PRINT: 

PRINT “2 FERRITE CA ANTENA PAR PRINT “3 GERADOR DE HF NA FREQU 
TIDA: PRINT : PRINT “3 DESALINH ENCI DE F.I. imoduLado a 2K 
AMENTO DOS CIRCUITOS DE SENTO HZ1":. PRINT: PRINT "à LIGA-SE U 
NIZACARO": PRINT o: PRINT “4 VALUU M VOLTIMETRO A LINHA DE Cin.6b:. 
LA OU TRANSISTOR DE R.F. OU DO (para um bom alinha- mento a d 

CONVERSOR DEFEITUOSO": PRINT : gflexao deve ser max.1": PRINT 
PRINT "s CONDENSADOR bypass DEF “PRINT “5 COMECA-SE SEMPRE PELO. 
EITUOSO: PRINT PRINT "6 EXIST ÚLTIMO TRANSFORMADOR ATE AO FP 
EM MAS SOLDADURAS UU MAU CONT RIMEIRO iPreto, Branco, Amarel 
ALTO NA ALIMENTACAO”. GO SUB d0a 2) 

3 “B21 PAUSE Ilda 
2500 PRINT “1 EXISTE UM CURTO NU *6B2s CLS : PRINT AT 0,9; "CONUERS 
N" PONTO DO RECEPTOR" PRINT DR':LAT 2,0;'41 COMUTADOR EM O.M. 

“PRINT “2 VERIFIQUE AR AL IMENTAC = E GERADOR DE HF EM l400kKHz": PR 
O“. GO SUB 4d0D INT : PRINT “2 MONOBRAR O COMANÊ 
«g0o PRINT AT Sl, BD," receptor t O CE SINTONIA PARA OBTER O SINA 
em mais avarias?” a L CE SAIDA MAX. (ajustar a ag 
4001 IF INKEvg="s" THEN GO SUB 5 ulha do qua- drante”: PRINT 
Papa PRINT “3 AJUSTAR O TRIMER DE SIN 
4002 IF INKEvYgG="n" THEN GO TO 70 TONIZA- CAO DE ANTENhRise existi 

Pr, Cr) PARA OBTER O DESUTO MAX. NO 
203 IF INKEvg&o:>"s,no THEN GO TO INDICA- DOR": PRINT: 

“001 7624 PRINT : PRINT “dá GERADOR HF 
2305 STOP EM GogkHZ, MANOBRAR O COMANDO 
000 CLS : PRINT FLASH I:AT 180,1 DE SINTONIA PARA OBTER UM S 
À: MENU LAT 12,21; CHURARIAS INAL MAX. NA SAIDA iajustar a 
= agulha do quadrante)": PRINT. 
SoD2 IF INREvg="1" THEN GO TO 2 PRINT “5 RAUUSTAR O NUCLEO DA BÓB 
2004 IF A THEN GO TO 25 NA DE SINTONIZACÃO DO ANDAR & 
5907 IF INKEY$<)01,2" THEN EBD TO E HE PARA A MAX. SAIDA. DESL 

eira dra pe ÚCHE AR BOBINA DE O.M. SOBRE A 
000 CLS : PRINT “1. VERIFIQUE 5 FERRITE PARA SE OBTER E MAX. SI 
E AS TENSÕES SAO NORMAIS: P NAL DE SAIDA": PRINT PRINT 
RINT : PRINT “2a, se as tensoes e E VOLTAR RO Ni ATE RO N5 5E FOR 


SN 


CLUBE Zs0 13 
NECESSARIO: PRINT o: PRINT o? AT : FOR faba TOGO: PLOIL Fill 

REPETIR AS OPERACÕES DE Ni A LUI Cor nest: BRANT INK 2 

NB PARA O.Ll. E AS FREQUENCIAS MT 183,9. BeFe' AT 158,18; “ua”, A 

Ro to niaiiadd SAO 2dWkHz E NK 4:;AT ?7.22;"220k";AT 11,23:"22 
1BUOKHZ" E | 

76268 PRINT : PRINT “SB PARA O.C. e?t23 FOUR f=32 TO 48: PLOT S1,t: 

REPETIR AS ÓOPERACO- ES DE N1 A NEXT Ff: PRINT S,4, "BS AT 16,2 
NG E AS FREQUENCIAS DE ALINHAM Bi C-D:AT 16,12: 0+0: INK 4; FLASH 

ENTO SAO PARA O FIM E PRINCIPI L:AT 18,14; CT: INK O; FLASH O, 

O CAiS) BANDA (IS) QUE O RECEPTOR RT 20,14, "FO, AT 9,8; "RAT 17,6; 
TIVER" W ANK ds FLASA LAT OST; 

“62? PAUSE 1900 | INK BO; FLASH G;AT 5,5, "Sº: AT SS, 

“630 CLS : PRINT AT 5,3; "ALINHAM Dido os n MAL, Std; 

ENTO FIC:;AT 7,3; "ALINHAMENTO CF” “2d PRUSE IlHVD 

AT 9,3; “MENU”, FLASH 1;AT 5,97; “ves PALISE Q 

+ sr et, é MT so» a “25 GO SUB 7730 

7632 IF INKEv g="1" THEN GO TO PE Fier CLa : PRENTAT RA. "HF. é 

20 CeFLviAT 2,0;"1 AJUSTAR O TRIMME 

*634 IF INKEvy$="'2" THEN GO TO 76 R tou o nucleo | DO OSCILADOR P 

do HRA COLOCAR à INÍLIO EDU TFIM 

“83% IF e a THEN GO TO & DR BANDA EM 53 e 190 MHZ RES 

"640 IF INKEvg&<>"1.2,3" THEN GO FECT IUAMENTE iutilizando um q 

TO 7632 gerador de HF). PRINT o: PRINT “2 

“699 STOP COLOCA-SE NO MEIO DA BANDA (94 

200 T o : “PRINT AF O,12,'F.l. MHZ) E APLICA-SE UM SINAL DE 

AT 2,8, º1 APLICA-SE UM 5 INAL De! HF NÃO MODULADO COM à FREGUEN 
id. 7MHz inao modulado? à ENTRA -LIA DE 94 MHz": PRINT 

DA DO RECEPTOR": PRINT : PRI 7729 PRINT “3 O DESVIO MAX. DO u 

A) NT “2 ENTRE OS PONTOS a E b LIGA a CORRESPO- NDE AR MELHOR AFINA 

M-SE DUAS RESISTENCIAS DE 220k CAO e “e. tem = ter o ido L 

CADA: PRINT o: PRINT "3 ENTRE O igado 5a": PRINT : PRINT 

PONTO MEDIO DAS RES. E à SAID “3a DEVE- ie REGULAR OD TRIMMER D 

AR DO DETECTOR LIGA-SE UM MICRO E SINTONIA DE HF“ PRINT : PR 

AMPERIMETRO DE 154 A Ságua”: iNT “3b DEVE-SE REGULAR O NUCLEO 

PRINT : PRINT “4 REGULA-SE O SEC DR BUBINA DE ANTENA tlisto Pp 
- DO DISCRIMI- NADOR PARA O PO ara a max. detexao no uac: P 

NTEIRO DO tua) IR À ZERO": PRI FUSE 1908 á ' 

NT : PRINT “S DESLIGA-SE O iua) e?ta0 CLS : PRINT AT 5,3; "ESQUEMA 

DR SAIDA DO DETECTOR E LIGA-SE CAT 7,3; CALINHAMENTO DA FIC:AT 

ASSA": ANT: 9,3; "ALINHAMENTO DA HF e CEV;AR 

702 PRINT : PRINT “6 REGULA-SE 11,3; MENUS, FLASH 2,AT 11,27,"4 

O PRI. DO DISCRIMI- NADOR E TO ATOS 27 CICATO?, er” 2,8 

DOS OS CIRCUITOS SEC. E PRI. DE ?1.3 Ti 7 

TODDS a Ea ea E On Da dida IF INKEvg&="1" THEN GO TO 7? 
a AR M . A Bro 
tura) * Re IF INKEvg="2" THEN GO TO 7? 

"703 PRUSE “se 

77Dd GO SUB 77309 eraa IF INKEvy$="4'" THEN G0 TO 2 

"707 CLS : PRINTAT EB,7; "LATO 238 IF INKEvY&="3" THEN GO TO 77 
PI “CUIAT 10,7; "CºiAT 8,16; "NV; A 2? Eai E 

T.lO,10; "MPSAT 3,127" SAT 9,1ê; "738 IF INKEY$+:>"1,2,4,3" THEN G 

“eU AT lIO,12; "PAT 132,6: "»!;À To 7252 

13 , 5; aa AT L ; 5: Pqmenia A 1&: “ nm "898 STOP 

AT 9,15;"M": AT lo,15;,“!"SAT 8,1 "889 CLS : FOR f=39 TO 199: PLOT 

S,"0"; AT 10,18;"0"; INK 4;AT 6,2 f. 140: NEXT F 

Ds: AT 2,20; "WATT 8,20," 7908 FOR g=71 TO 127: PLOT 71.9 

4 "749 PRINT INK 4:AT 19,20; »"';AT PLOT 215,9: NEXT q 
* 11,28; "Sº;AT 12,20; "*";AT 15,18 8201 FOR Ff=1 TO 4: FOR 9=3 TO 5: 

SOR. SMT 318,10." RAT 46,45; MA PRINT AT a,F;"B': NEXT q: NEXT 

TO AD .ado 7" INK MAT- 4S,06; "O" f 

FLASH 1,87 ?7,27:."W AT 123,12; "DB" 3007 FOR f=? TO ld: FOR 9g=3 TO 5 

"el2 FOR f=80 TO 147: PLOT f,92 PRINT AT a, Ff; "MM: NEXT q: NEXT 
PLOT t,108: NEXT + f 

??13 FOR f=147 TO 164: FOR 9q=76 5019 FOR f=13 TO 16: FOR 9=3 TO 

TO 92: PLOT f,76: PLOT 147,9: NE 5. PRINT AT 9, F;"B'. NEXT q: NEX 

XT q: NEXT F ER: 

*2l4 FOR f=1d7 TO 164: FOR q=1908 S01l2 FOR Ff=19 ao ee: FOR 9g=3 TO 
TO des: PLUOT f,123: PLOT 147,0: S: PRINT AT 9, “MD”: NEXT 9: NEX 
NEXT q: NEXT : T f 

715 FOR f=92 TO 1808: PLOT 1264, Sgl4 FOR f=25 TO 268: FOR qg=3 TO 
: NEXT f: FOR f=164 TO 192: PLOT 5: PRINT AT 9,F;"8". NEXT q: NEX 
f., 100: NEXT ft: FOR F=48 TO 100: TF 
PLOT- 192,f: NEXT -t: FBR t=155 T 8016 FOR Ff=25 TO 28: FOR 9=13 TO 

Q 192: PLOT f,dS: NEXT F 16: PRINT AT 9,F;"H": NEXT q: N 

tt1º4 FOR f=15 TO 23: PLOT 2236, É: EXT i” 

NEXT FOR f=z31 TO 47 STEP 8913 FOR Ff=7 TO 10: FOR 9g=13 TO 
PLOT 1216,f NEXT +: FO f=B4 To Le: “RENT AT q,f; 0 UE NEXT q: NE 
92. PLOT 116,f: NEXT Ff: FOR F=653 XT 
TO 144: PLOT F,48: NEXT Ff: FOR s021 PRINT PAPER QB; INK FZ;AT 4,2 
f=45 TO 50. PLOT S1,F: NEXT f F “"REPCSAT 4,8; "MXPGRAT da,l4, "PIC;A 
LvA-f=55 TO BO: PLOT 5Si,f: NEXT Ff T 4,19; "DET";AT 4,25; "PRE";AT 14 
7719 FOR F=76 TD ida: PLOT S1,F 2 5,804 OS sAT 14,28; “PUL 

NEXT Ff: FOR f=51 TO 585: PLOT f s022 FOR f=d?7 TO 63: FOR d= 187 T 
LOW: NEXT f: PRINT MT 5B,2;"tr. d O 195: PLOT d,Ff: PLOT d+4,68: 
LSCraito 8224 PLOT d+á, 47: NEXT d: NEXT F 
rel POUR f=36 TO 76 STEP 2: PLOT S025 ea F = 187 a 195: FOR d=4? 

t,84: PLOT F,116: NEXT Ff: FOR Ff TO 63:. PLOT NEXT d: NEXT F 
-=8d TO 116 STEP 2: PLOT P6.F: NE 3029 FOR f= 18% “o 194: PLOT F,Bd 
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PLOT F,46: NEXT Ff 

035 FOR f=187 TO 193: PLOT F,65 
PLOT F,45: NEXT f 

8040 FOR f=187 TO 192: PLOT Ff, 66 
PLOT f,44: NEXT 

S041 FOR f=1587 TO 191: PLOT F,6? 
PLOT «f,43: NEXT 

Sod2 FOUR F=187 TO a PLOT f,68 
PLO Fodo: NEXT 

8943 FOR Ff=1587 TO 189 PLOT F.69 

: GLOT kd. NEXk 

50d a FOR f=187 TO 188. PLOT €,20 


PLOT Ff,40: NEXT 
8045 Prof. 187,39: PLOT 187,71 


3946 FOR F=23 TO 48 STEP 2: FOR 
Ases TO 96: PLOT f,9: NEXT 9: NE 


8048 FOR x=0 TO 2+4PI STEP PIv75: 
LET ÚUz5IN x: td 160+(x+3),1+1 
164 +4+10): NE X 


5650 FOR isidao TO 162: PLOT 191, 
Es : 
3955 FOR aq=1l89 TO 191: PLOT 9,16 


o: NEXT 9 

3056 FOR x=0 TO 2+4PI STEP PI/75: 
LET Úy=5IN x: PLOT 1580+(x43) ,l+i 
Sa+y+17): NEXT 


X 

5953 FOR Ff=188 TO 215: PLOT F.96 
— NEXT L 
Soo FOR f=50 TO.Z1: PLOT F,88: 
NEXT f 
064 FOR +f=155 TO 169: PLOT 139, 
É: PLOT 13?,f: PLOT 1098,f: PLOT 
124,4: NEXT É 
3961 FOR F=156 TO 1658: PLOT ida, 
+: PLOT tos, fo.PLOT 2A?,f: PLOS 
dis. tt: NEXT F 
cg6e2 FOR E=157 TO 167: PLOT 143, 
É :, PLOS. 133;,tf: PLOT.20B,!: PLAN 
145, ft; NEXT. F 
3053 FOR F=158 TO 166: PLOT 145, 
+: PLOT I34,+4: PLOT 03,4: PLES 
Z17,5f: NEXT É 
80064. FOR f=159 TO 1265: PLOT 147, 
Ff: PLOT 1229,'F PLOT I2901,F PLOT 
149 ,f: NEXT. 
S9ES FOR f=160 TO 16d: PLOT 2dg9S, 
ft: PLOT 127 t: PLOT.-SBD;t: PLOT ! 
ais Foo NEXT É 
38966 FOR f=161 TO 163: PLOT 151, 
+: PLOT 1285, PLOT 1%34,t:>=PLOT 
GP. FP: NEXT Ff 
Cdo?; FOR f=l4gd TO 164: PLOT 95,f 
NERI f 
3063 PRINT AT 17,2:"Farmas de on 
da que deverao ver no oscilosco 
Pio nos pontos .lhdicados.” 
Sea PAUSE q 
Ga sÓ TO 2 
3971 STOP 
S190 CLS : PRINT AT 18,0; MATE 
RIAL NECES SHRIO agir ae AT E o A 
B; " JERIFICACHOV; AT dá, 
Re de sinais": PAUSE 25 

RR e 


ERRATA 


CLUBE Z80 — N.º 32 — PÁG. 11 
DIA DA SEMANA 
Rectificação da linha 90 


90 LET F=365*C+A+31*(B-1)+INT ((C-1)/4) 
— INT (75 * INT ((C - 1)/100+1)) 


Desculpem o erro. 
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4 — Ee tinta 
e Fa 
TU 
Zona 


a" 

=ô TO dQ: PLOT q,Id4: 
280 da 239: PLOT a,28 
(Sê: PLOT 200,6: 


FOR 9g=7 TO 1 
NEXT q: NEXx 
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“e 1" 
cado wm- 
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oe 
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Or MtUmnmZe 
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“SVR EMEA pm 
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na | 
Eu 
À 
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4o rp 
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NA tem 
= ni uid 1 


Ur 
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ARO CO ZM O COCO 
UE 4 TD x: A TO Co O ts 


p 9,8; 
ita. S, A a 


Ti. 


a... 
3115 PRINT AT pg 19,28 
. 4 a AT BS. A A E AT 11,29; e: 


INK 4; 
“3: PRINT INK O; 
“: PRINT INK &; FL 


- PRINT FLASH 1; 


FLASH 


a12> PRINT AT 3d,4, Cos numeros in 

dicamn a ordem pela qual se devem 
verificar os rece-ptores! 

5897 PAUSE q 

asoa GO TO > 

aq8494 STOP e 

yoga DATA 1,3,7,15,31,63,127,255 
: DATA 255,127,65,31,15,7,3,1 0 

3992 DATA 65,6? ,FP9,127,127,79,67 
:65: DHTA 130, 194 ,242,254,254 ,24 

2, 194,13) 

903 CATA à,90,9,0,16,15,15,246: 

CATA 2do, 15,15 ,2d0, 112, 15, 15, gal 
: DATA 240,15,15,156,0,90,0,0 

39095 DATA aaa 6 16 16 16 16 D 

ATE 255, 1290,1295,1295,185,145,156,12 

B- DATA 18: 18, 18, 16,854, Bd 

Gaga CATA 15,43,564, 125,64, ,64 ,d 8 
is: DATA 0 ,6E,63,.65,68.556,0,0 

39911 CHATA à,1,58,24,32 dd ,4d,68: 

DATA 668,34,33,33,24,6b;,1;, õ: BATA 

v,128,96 ,24,,4,4,4,2: BATA 2d. do, 

ll ,24 ,.,96,125,0 

q913 CATA E a a RS 2, 12,240: 
DATA 255,125,59,60,2 4,04; d,80:. D 

ATR 1,3, 15,63 65 155,4 DATA os 

2,08,178,05,178,9,0,0: DATA D.,Sá 
s148€,04, C2,SA , Te, 

599480 FOR cC=ldd TO 16d: FOR m=0 T 

é 

3992 READ a 

3993 POKE UISR CMRE c+m,a: NEXT m 
NEXT Cc: RETURN 

q999 SAQUE Cdeteccao! LINE 1: PRI 

NT “UERIFYO: VERIFY “aetecrtao” 

CLS : PRINT “Cesta bem gravado” 


VENDE-SE OU TROCA-SE 


COMPUTADOR NEWBRAIN 
(novo, com display incorporado) 


— valor de 
— valor de 


25 000800 
49 000800 
— valor individual 3 000800 


CONTACTAR O CLUBE Z80 


112: PLOT 25) q: NE 


CLUBE Zso 
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Regra geral é por causa dos piratas, intrometidos e copiado- 195 ,126.1,3,0,237,176,33,60,854, 
A 7, 4,427 ,1),145,0,23?,176,33,78,25 

res, os programas que são vendidos em cassete ocupam 126,95, 36,126. SE4 

memória em excesso, não deixando um único byte livre, para ado ur AO seu E (4 81,58, 126. 15 ,35 
h am introduzir seja o que for. sed lo, do, 133,43,254d,18,0,25 

que os estranhos poss jd uzir se) au E 5 126,195 0,84 ,45 232,95 17. E 

Para poder alterar ou abrir um programa, é necessário 33,24,252,1,458,184,237,184,195,1 

construir um carregador especial, que baixe o número de Ca Rara a aa 219, E pt 193 - 

bytes ocupados na memória e deixe assim livre, algum os, 23,8 PE: a BE dudar jade ,225,225 

espaço. evo LHIA 1d4B, 144,0; 

Vamos observar como isto se faz, tomando para exemplo um ao igaião Ee a gº 3 e] 1436, 0 

jogo que se chama MONTY MOLE, que normalmente ocupa 238 DATA 151 , 132 201 | 

O programa que listamos em seguida, destina-se a substituir 252 DATA 235,135,8,245,135,90,25 
add E qt &,135,0 

o carregador inicial do MONTY MOLE e que deixa criar dife Ed DATA 229,135,0,230,135,0, 

rente número de vidas; movimentar partes do écran, etc. 1,135,0 

Inicialmente, introduza as 17 linhas do programa, execute o a'à CRIA D,8,0 


Promando RUN. 
Se tiver erro, a linha 15 detecta esse facto, de modo a poder 
gravar o programa apenas quando ele esteja corrigido e a 
funcionar. Logo que tudo esteja em ordem, grave estas linhas 
numa cassete. 
Carregue a primeira parte do MONTY MOLE e logo que ele Traduzido e Adaptado da Sinclair Programs por: 
tenha sido transferido, pare o gravador e desligue o 


Paulo Metelo 


Spectrum. 

Carregue o programa que lhe propomos; execute o comando Este é um pequeno programa para quem gosta de ver a 
RUN e se tudo estiver OK, ele pára com a mensagem STOP. «versatilidade» que o Spectrum tem relativamente ao som. 
introduza a cassete do MONTY MOLE no gravador sem que Pois aqui tem mais um pequeno programa que lhe vai tocar o 
tenha alterado a posição da fita. «parabéns a você». 

Use a tecla CONTINUE e active o gravador com o PLAY. Introduza o nome do aniversariante e a sua cor preferida, e aí 
As alterações ao programa estão contidas nas linhas DATA e tem o Spectrum a tocar-lhe a famosa melodia. 

incluem um comando de abandono do jogo: tecla G. É natural que o desenho final pode ser alterado e com um 


pouco de imaginação e paciência poderá fazer maravilhas. 
STOP THE EXPRESS 


Use o comando MERGE '' ”” para carregar e descodificar a 1 CLS REM prograza traduzida 
primeira parte do programa. Parar o gravador e escrever ma O ndo tp O RR PPA 
CLEAR 25999. LOAD '''” CODE e active o gravador. > POKE 236558.,5 
Quando acabar de passar, taça POKE 48111,201. id INPUÍ Ra Esjo-- agi 
RANDOMIZE USR 48096 permitirá fazer os POKES que en- “am 
tender (?); por exemplo para deixar de ter o número de vidas O CLS INPUT CQOUAL AR SUAR COR 
FRUUORT: E tEsctoiha um nu 
limitado fará POKE 34464,183 : POKE 34926,183 : POKE nero de da GIVE 
doa BTU. Do LLS 
. Prada 30 INK b 
12 LET tot=zá: FOR N=65000 TU 6 JS BORDER db 
S101: READ A: LET tot=tot+a: POR ta FOR F=6 TD 3: PRINT AT ra; 
E N,A: NEXT n FELIZ ANIVERSARIO FLASH l:a& 
15 IF tot<a>10<>10865 THEN A SO NEXT t 
T AT 19,0, "Error in Main Data: By BEEP .25,o: BEEP .25,4: BEE 
STOP P ad,e: BEER. SO: BEEP .5,5:- BE 
2o INPUT CSQYSTICK?U: AG ER Lú 
30 IF CODE Ag<>CUDE cw AND CO “d BEEP ,25,0: BEEP .25,0: BEE 
DE AgG<>CODE “uu” THEN GO TO SU Po cSaa:. BEEP. «Eq: BEREP. .5D,7: BE 
— 494 POKE 659 37: PUKE 65029,1 EP 1,3 
27: POKE 5510 S: PDOKE 65101,13 So BEEP .25,8: BEEP .,.25,0: BEE 
1 à P .S.,i2: BEREP .5,9: BEEP .5,B: E 
SO LET n=65102: LET bei: “LET É EEP .5,4: BEEP 1,2 
= N ca BEEP ,25,18: EEP .2s,io: B 
6a READ a: IF a=0 THEN IF b=y EER 549: BEEP .,85,5 O sé 
THEN IF c=0 THEN G0 TO 80. BEEP 1,5 
29) LET c=b; LET bza: POKE n,a: — Jd) FOR s=-40 TO dO STEP 1: BEE 
LET n=n+1: GO TO 69. P .095,5:. PLOT s+12a,14dD: NEXT s 
E 8) CLEAR 65535: STOP : RANDOMI 11ãá PLOT Sa, 1B0 
ZE USR 55900 a ia DRAW 3,3,4040 
Sá DATA &2,1153,221,35,2d4,69,1% ia STOP 
19, 192,55,205,55,5,95,75,25d,17 sasa SAVE “ANOS LINE 1: RUN 
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Autor: PAULO METELO E EMILIO FORMIGA 


Este programa servirá para fazer o seu TOTOLOTO, e você Ga E + «5 THEN GO TO 35 
! ida ; a nNEx fit 
só tem de, quando lhe for pedido, indicar quantos números 100 CLS : PRINT AT 19,4;"ESCOLH 
quer e o computador dar-lhe-á, dentro de um conjunto de 45, = Ui CONJUNTO DE NUMERO 
mas sem os repetir, o conjunto de números pedidos. o na TND: POR. CLS 
Em seguida, é-lhe perguntado se quer mais algum conjunto ida DIM atm 
a - lis FOUR E=1 TO n 
isser não, o computador REG po ES ao A O 
de HiTaRDS: CU nddHãs dissa o E 157 LEO sz iki=zIiNTo iRND$dE! +Ii 
pergunta-lhe se quer destruir o programa ou não; se a 108 TE E:>51 THEN GO SUB Bos 
resposta for «sim», ele ainda lhe fará uma nova pergunta Tr di F. Ea RENT Barro 
a ; : a Ti Fam. td E: : i LE Ros 4 
para ter a certeza de que não se enganou e, mais precisa- SOME O É o SA 
mente, faz-lne mais três perguntas: se mantém o «sim», se + fio Ra Hi Zil,0: WUER MAIS AL 
tos BE 
“ TPRREN-BO TO 


: | CONJUNTO 2º (520) 
quer o «não»-ou se quer uma listagem do programa. 142 TE INKEY Rest 


Se disser que «sim» o programa é-lhe automaticamente des- 
truído, se a resposta for «não» o computador volta a 
perguntar-lhe se quer destruir o programa. 

E é tudo, não culpe o computador se ele não lhe der um «6». 
Boa sorte. 
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CLUBE Zso 


ilá2 DATA “r',0,258,25,127,127,I14 

to BI DA. 4 = 1402 IF INKErg&="" THEN PORE 2357 

1143 DATA “n'º,9,28,28,127,127.18 1 ,255+RND: GO TD 1402 

?,8,62 = E 2 l4áy3 BEEP .905,35: PRINT HT 7.5; 

ild4á DATA “P',9,5,28,62,127,197, PAPER PP; “HP; PAPER S;CC; FLASH 

5,62 . o Doe Mn “a “1 FLASH dO E, AN 

1145 DATA “s"',9,58,22a,62,127,62,2 K 2; PAPER 7;'"D090" 

3,6 no 1409. LET Kg=" Baralhando o 

ilãs DATA “0',a4,8,28,62,127.62,2 142112 FOR i=i TD 52 

5,8 ' AS LET UG=XE(S TO 49 

1149 DATA "“q'',8,34,119,127,127,6 l414 LET Xãz=X&i2 TO |) 

2,253,8 re F o 7 1415 LET XxE=xE+UG 

1159 DATA “4it,ô,1558, 146, 146, 1d6, 1415 PRINT AT ?7,lW; PAPER S;xgi 

1i46,145,155 TO 12 

ilSa FOR i=1l TO 6d dr a 1iá2d LET shif=I+INT (S2+8ND) 

1154 PDOKE 565375+i PEER 115759+1) 1426 LET tã=pgii! 

1158 NEXT à 14258 LET páiil=pgishf) 

1154 REATORE 11588 id390 LET Ppáishfi=tgã 

1161 FOR 1i=1 TO d 1432 BEEP .G9a1l, Li +60) “2 

1182 READ c& TE j434. NEXT ii 

1164 LET u=BEiCODE céll! -65i +155 1435 PRINT AT 7,10; PAPER 6 E 

Sa Ta. araihado é 

Ll165 LET z=S+ICODE céiZi -S5) +eia 1435 PRUISE Sã 

Sa a id4S7 BEEP ,85,36 

1165 FOR 20 TO *. E 1455 BEEP .05,28 

2178 PORE Zz+4, PEER tu+g) 14539 PAUSE 59 

ilva NEXT 4 idgéáo FOR i=2 TOA 

ia NEXT 1 iSiz LET agiii=]CHERS 143 

1175 RETURN - Eh iddá NEXT ii 

1183 DATA CARACA CdkO, COLO, CRNO iáis RETUEN 

1196 REM SET DERL E no 1498 REM GET KEY PRESS 

1204 CLS : PRINT AT 17,12; FLASH 1S52A IF INKErvgGo>0" THEN GO TO 15 
1; PaNPER S:.“Colacando” 3a 

12802 LET cpm: LEToksd 1902 IF INKEYg=" THEN GO TO 150 

1204 FOR s=1º TO 7 > 

1203 FOR L=k TO *? 1504 LET 21 E=INKEYS 

lald LET zgii, L)=pSis! 1505 RETUEN 

sta CEC yJ=i4+1 1514 REM REY TEST 

1214 NEAT 1 E aa 1516 IF FiLác=à THEH GO TO 2294 

1218 LET Zzii,li=k: LET Zzii,ã) =k 1517 REM GO TO END OF GAME 

iD2d LET k=k+1 -5Si&B GO 5Sti& 1500: REN GET PRESS 

1222 NEXT à " is2g IF ri="8'" THEN GD SUB 16VBD: 

1232 FOR 1=0 TO 7 a GO TO 15i6 

1254 PRANT PAPER 2; INK FLAT Lã, 1521 REM NOVE CURSOR RIGHT 

É POR E EE 15.2 IF i1&='"5" THEN CO- SUB 1618: 

256 NEXT à SO TO iSia 

jedo LET 4mi: LET k&s 15823 BREM HNOUE CURSÕOE LEFT 

loga FOR i=zi TO? idea IF 16="6" THEN CU SUB 1640: 

1048 FOR L=k TO 27 GO TO úiSia 

L.e2By PRINT AT is+2,dELsCTTT:S 1.225 REM PUT CARD COUN ON PILE 

1252 NEXT ii 1525 IF ig=)9" THEN GO SUB 18650: 

1805 LEI Kak+1 SO TO 281B 

1255 NEXT à -.5S29 REM NEXT BATChH OF THREE 
iba FDR 1=i TO TF 13090) SF ;iã="4" THEN GO SUB 1850: 

l261 LET w=i+ã: LET z=d+ Ur TO Lodo 

Ll2do LEI C&=z6li,il: 50 SUB 1950 1531 REM PICK UP DECK CRED. 

126% REM PRINT CARD 1532 IF if="c' OR ig='0" THEN GO 
1264 NEXT à SUE 1952: GO To 1515 

1265 PRANT ET 17.48. 15553 FEM CHEST 

12658 FOR i<=3 TO is N 1594 JP iê=e"q" óR 1g="0" THEN GO 
1264 FOR i=z-á TO 27 STEP à TÚ 19320 

lero PRINTOHAT D,P+açlos 1535 KREN úUIT GAME 

272 NEXT à 1558 GÓ TO 1515: REM GET PRESS 
1275 NEXT à 1599 REM RIGHT 

1275 LET k=ê BO) LET Ppp=Pp+1 

Zero FUR.LSA TO é 1661 PORE wp,15: LET wp=wp+d 
1280 FOR 4a=b TO 7 1602 IF pp=s8 THEN LET pp=0: LET 
1251 PRINT AT i+lS,drd+S: wup=22536812 

2382 NEXT q 15053 POKE wp, 143 

12583 LET k=k+1l: NEXT 595 RETURN 

1254 PLOT 27,151: BRA à, -102 16953 REM LEFT 

1265 LET i=l 1611 PORE wp,15S: LET wp=up-d 
1268 FOUR i=1 TO cd. 161> LET pr=EPp-1 

1290 LET LEtlii=paii+SS) abas ir ppb=-1 TRENS LET Bb=7: LET 
1292 NEXT i up=22539 

i2953 a Ra, aT à, cado SE 1617? PORE up, Id3 

PFORSPORS DRSPORSPORSPO" PRPER E 1515 RETURN 

: FLASH Bo l62a REM PICK UP 

1300 REM SET FLAGS l621l IF pp=0 THEM RETURN 

1304 LEi FLIisD: LET. FLESO 1bz2 IF zipp,1i=8 OR FL1l:4>0 THEN 

1306 LET FLoszegdá: LET. TLéris RETURN 

1307 LET FLS=O: LET FLEO idea LET z=ppsd ; 

1308 RETU iB26B FOR u=zipp,1) TO Zzipp,B» 

1398 REM SHFFLE 1523 PRINT AT u+42,Z,50 04" 

ls) BEEP 105,20: PRINT HT 5,0,. iBbea NEXT u 

PAPER 1; INK Y: pobaralhar premi 1630 LET cCgã= zgizipr, Li,PPI) 

r quaiquer tecla" ce 1692 LET u=21: LET Zedo 

1401 IF INKEy$6<:>)"" THEN GO TO 14 155i 50 SUB 1450: REM PRINT CARO 

ai 1838 LET wt=uwp 


E) 


CLUBE Zso 19 
o 1787 LET wpa=ut 
15538 LEI FlLI=PP 1788 LET pp=FLI 
639 RETURN E 1789 POKE up, 143 
ibda REM PUT CONN 17291 LET z=ásPp 
1641 IF FLizd THEN RETURN o. 1749 FOR izzipe,l? TO zipr,2 
1643 IF pp=0 THEM GO SUB 1733: R 1793 LET n=i +E 
ETURMN : REM BUILD ON ACE PILE l7Gd LET ca=zGii.ppI 
lEd4 IF Zipp,1i=0 THEN LET FlLd=F 1595 GO SUB 1950: REM PRINT CARD 
L4+l: LET zipp,li=l: GO TO 1550 1756 NEXT ii 
1645 JF ZWiz ippsltspp)s THEN 1798 LET FLizD: RETURN 
s0 TO 1656 Rr jo: 1800 LET wz=is: LET z=l12 
1646 LET test=EN CiCA,ZRIZIPPSE! 1802 LET FLI=z0 | 
PRI) | 1593 BO SUB 15450: REM PRINT CARD 
1648 IF testc<>? o test<>9 THEN 130d RETURN 
B0 SUB 178d: RETURN : REM ENTRA 1854 IF FLilc>g OR FL3=a THEN RET 
DA INVALIDA,PONHA ao CARTA NO MES LRN : REM ALREADY HOLDING A CARD 
MO SITIO- 1852 LET FLil=8: LET cg=sL$iI) 
1850 LET nfs=z ipp,2)+1 ABda LET w=81: LET z=d2. 
1652 PRINT AT B1,1B;' x 1BE5 PRINT AT 19,12; 
1658 IFP FLi<5 THÉN GO TO 1698 1355 GO SUB 1050: É TURN Mo 
1555 LET zipp,2)=nifs+ZiFLI,2)-zi rach REM PICK UP & DISPLAY CARD 
La, d) SIS: 
1669 LET m=ziFLA,I) 1359 REM NEXT 3 BATCAH 
1652 LET z=4á*pp 1860 IF FL3 OR FLi<c:0 THEN RETUR 
1565 FOUR iznís TO ZziPp,2) Mo: REM CAN'T TURN QUER BATCAH 
1668 LET z&tli,ppi=zg&im,FLI) 1861 IF L=FL3 THEN LET L=0 
LB7à LET cá=zgli.ppI: LET w=1+2 1862 LET L=i+5 o PR 
1672 GO 5UB 19052: REM PRINT CARD 1863 PRINT AT 21.12; 
+27 4- ET EB ta,FLI) =" “ij 1854 G0Ú SUB 1550 
1676 LET m=mn+1 1865 LET w=z19: LET Zz=12 
1678 NEXT i 1867 IF t+>FLS THEN LET L=FLS 
1862 LET ZzFLI,))=ziFLEsIl-d 1365 LET w=13: LET Zz=1& 
L684 LET ZiFLLo, E eziFii,ã) 1B7D LET có=Lgill 
1696 IF ZIFL1i,1)=s8 THEN LET FlLda 1573 GO SUB 1950: RETURN + 
FL4-1l: GO TÚ 1592 1374 o Tem más ms ridiia & PRINT 
1687 LET w=ZiFLI,1)+42: LEI Zerl) NEL, UP É ON DECK = 
Ed RA 1850 IF FL3=2 AND FLS=0 THEN Go 
1605. LET casz8 tz (FLIL,I),FLAS SUE 1594. RETURN E E 
1630 GD SUB 1050: REM PRINT CARD 1.882 IF FL3=zi AND FL6E=0 THEN GU 
1692 LET FLI=Q SUB 1593 
1894 RETURN iasa RETURN a a 
1693 LET zipp,2)=nfs 1850 QUER 1: PLOT 91,28: DRAW -2 
l?do LET w=nfs+2: LET z=d*PP .d: DRAN 0,5: DRAW 24,0: DRA O, 
1742 GO SUB 1950: sa PRINT CARD -1: DUER à 
1704 PRINT AT 19,12; 1891 LET FLS=1: RETURN. 
1*06 LET FLS=FUSLIO GO SUB 1850 15895 DUER 12: PLOT 93,18: DRA -d 
1707? IF FL3=0 THEN PRINT AT 19,1 «2: DRA Q,8: CRAU 24,0: DRA a 
= “: LET FLáa=sFL4-10: GO -1: QUER 
TO 1724 1844 RETURN º 
1/09 IP L>FL3 THEN LET LaFLS: RO 159353 REM TURN QUER = 
TO 1720 1900 LET cá=Igilfll.zirilo do 
l712 FOR izl TO FLS 1902 LET w=zifili+2 
1714 LET Lg&lil=lãii+]) 1904 LET Zz=tLIlxd ” | 
1716 NEXT à 1906 GO SUB 1954. REM PRINT CARD 
1720 LET W=19: LET Z=12 1907 BEEP .U5S,20 
1722 LET cá=lGili 139053 RETURN 
1723 G0 SUB 19059: REM PRINT CARD iala REM QUIT 
ires LET FLiz=0 192a BORDER 2 
1725 RETURN 1921 GO SUB iddD: REM LOSE 
1732 REN ACE BUILD 1922 PRINT AT 17.D.sssgassass 
1733 IF FLi=5 THEN GO TO 1736 19253 PRINT AT 19.90, que tal ou 
1794 IF zZiFLI,1)<>5z(FLi.2) THEN tro Jogo” de ne 
SO SUB 1734: RETURN REM ENTRAD io24a 50 SUB 1500: REM GET PRESS 
H INUALIDA,META A CARTA NO SITIO 1925 ULS | ne 3 
1736 LET sui t=D0DE cgiZl -157 1926 IF iã=" OR ig="v" THEN GÓ 
1738 IF CODE agisuit] <>)CODE cáil TO 2991: REM PLEY NEIS GAME 
|i-1 THEN GO SUB 1784: RETURN : R 1927 53TOPR E 
EM ENTRADA INCAL IDA. META à CARTA 1932 IF FLi<c>ãa THEN BEEP .9S,2u: 
NO SITIO RETURN 
l7d2 LET agisuitl=cgid) 1936 PRINT AT 19,12; * 
irtká LEI Zed: LET W=5*5Ui t+] 19d) LET FL2= FLS+1 
1745 PRINT AT 21,12; 1942 FOR 1=1 TO FLS 
1748 BO SUB 1950: REM PRINT CARR 1944 LET tg=lLGiil 
17/58 iF FLi=z8 THEN DBO TO 1776 19456 LET shE=1+INT (FL3+*RND) 
tipo LEI ESIZIPLA Ss LI srLi) a” a 1945 LET L&ilii=Lãishr) 
L'o4 LEI ZiPLI, JSF irfti,))7-d 1950 LET Lgishfi=tg 
Lob LEI. ZAP l ad) srAril,a) 1952 NEXT à 
17/86 IP Z(iFPLA,I)=0 THEN LET FlLaás 1954 GO SUB 1250: REM NEXT BATCH 
FLã&-1: G0 TO 1770 1955 BEEP .05,20: RETURN 
Lt60 LET Cg=28(ZiFLI,I),FLI) 22090 GO SUB 1190: GO SUB 190909 
ide LEI W=Z iFLI, li +ê 2992 G0 SUB 1498: REM SHUFLLE 
1764 LET z=FLIsd 2004 GO SUB 13090: GO SUB 1200 
1765 SÚ SUR 19050: REM PRINT CARD 2905 LET wp=22577: LET pp=á 
l7?D LET FLIi=ô: RETURN 2907 POKRE np,143 
L77ê GU SUB 1704: RETURN 2213 PRINT AT 1S,W, “Baralho :". 
1750 REM PUT BACK PAPER FISTTTO 
1784 PRINT AT a2l,12;' 2011 PLOT q4,15: DRAW QB, S: DRA 
LOS LP FLi=s THEN BO TO 150% 2d. PLOT Já, 13: DRAU -2,9: DRA 
1765 POKE wp, 15 à 0,8: DRAW 2d,0: DRAW B,-2: PLO 
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“Carta a Joga 
BEEP .1,56: BEEP .1,20 

SO TO 1516: REM GET PRESS 
REM FINISH ROUT INE 

PRINT AT 17,8 
PRPER 2: 
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CAULDRON/Palace Software 


Cauldron é um jogo com excelentes gráficos. 

O jogo principia no exterior duma pequena casinha de campo 
situada numa idílica floresta. 

Tudo seria perfeito se não existissem uma série de morcegos 
voando entre as árvores, e o aparecimento de uma bruxa na 
porta da frente da pequena casinha. 

Com a ajuda de um Joystick, a bruxa poderá voar na sua 
vassoura através da noite, e assim começará a sua luta para 
se tornar a rainha dos feiticeiros. A única maneira da nossa 
simpática feiticeira se tornar rainha é utilizar 6 importantes 
ingredientes, que quando juntos no seu caldeirão, derrotarão 
o actual rei — rei Abóbora. 

Infelizmente, todos os elementos necessários para completar 
o feitiço estão espalhados por diversas cavernas subterrã- 
neas cujas entradas estão fechadas. Felizmente, as chaves 
para abrirem as portas encontram-se espalhadas no chão e 
estão prontas a ser apanhadas pela bruxa. 

Nas cavernas existem também muitos perigos. Para chegar a 
um dos ingredientes, a nossa amiga tem de saltar de rocha 
em rocha, evitando numerosos objectos que ameaçam pôr 
fim aos seus gloriosos sonhos. 

Este jogo possui gráficos extremamente originais, e é uma 
verdadeira delícia olhar a bruxa através da noite enquanto a 
pequena casinha deita fumo através da sua chaminé. 


3907: 

33993: 

19949 REM LOSE 

iatIl RESTORE salao 

292 FODE i=i TOS 

“vos RERAD L.p 

HE BEEP 1:13.p-2d: BEEP 1-3,p 
“905 NEXT i 

+918 FOR 1=1 TO TF 

«911 BRIGHT 1 

&Qils LET ka=zis,1)-1 

agli4 FOR 4á=z1i TO k 

915 LET ch=z6ig4,i) 

+OlLS LET m=ike 

020 LET z=ázi 

ipi GO SUB I105SA 

“dez NEXT j 

a923 NEXT à 

+923 BRIGHT 3: DUER q 

isa BORDER 

ias RETUEÉN 

“190 DATA .d,2?7,.4,26 , «4,27, .d,E 

dd PR ca NS AR 28,.3,23,.6, 

SO) SAQUE “paciencia! LINE à 

3905 VERIFY “paciencia” | 

Dodo PRINT AT 93,5; BRIGHT 1; PRE 

ER-B. INK S;““; PAPER 1; TECLAS 
de CONTROL PAPER 5; "": PRIN 

5901 PAPER 5 

LAVA PRINTOoOoS Ssquerda",."'B direi 
ta : THE 32 

SOUS PRINT "E pousar","?7 Levanta 
CC: TRE 32 

bala PRINT “4 tirar do baratho": 
Eee ER e 

Sol: IN “G Prox.grupo de tres 
“1 TAB 32 á E 

SMla PAPER 

DboZ20 RETURH 


TALISMAN/Games workshop 


Talisman é a resposta da Games workshop a Valhalla; e que 
resposta! 

Uma das diferenças entre o jogo Talisman e Valhalla, é que o 
primeiro permite uma série de jogadores. 

A simplicidade do cenário de Talisman não corresponde à 
história deste jogo, pois esta é extremamente complicada. 
Os velhos senhores possuidores de terras, foram destrona- 
dos e as forças do mal tomaram novamente o poder. A mis- 
são dos jogadores é localizar o objecto, neste caso a Coroa 
do Comando, que evitará o reinado das forças diabólicas. 
Antes de começares a executar a tua missão, cada jogador 
terá de escolher um personagem. Existem 10 personagens, 
cada um dos quais com diferentes poderes e habilidades. 
Se existir apenas um jogador, o jogo poderá ser jogado com 
a escolha de apenas um personagem. Os masoquistas pode- 
rao competir com 3 personagens controlados pelo computa- 
dor, o que torna o jogo extremamente difícil. 

Neste jogo o écran está dividido em 3 partes. No topo temos 
O local onde se desenrola a acção e os personagens que se 
encontram aí. 

No meio e no fundo do écran temos as condições dos perso- 
nagens escolhidos por cada jogador e figuras detalhadas dós 
objectos presentes. 

Este jogo é extremamente interessante, os gráficos são Horia 
e-é um jogo com muita acção. 
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ALIEN 8/Ultimate 


A viagem da nave espacial está à chegar ao fim. Começou à 
muito tempo atrás num planeta em extinção, onde os seus 
últimos habitantes foram preservados com criogénico e 
postos à bordo. 

Agora estãô a chegar ao seu destino. 

À medida quê à velocidade da nave vai diminuindo, o ataque 

de criaturas estranhas torna-se mais fácil, mas à nave está 

protegida com robodroids indestrutíveis que destroem tudo, 

incluindo os Alien 8. 

Tu és um Alien 8 e tudo isto vai interferir no têu principal 

objectivo que é reparar as cadeias de criogénico, localizando 

as válvulas térmicas e colocando-as nas cavidades correctas. 

O mais difícil é conseguir chegar até às válvulas pois estão 

protegidas, não só pelos robodroids, mas também por blocos 

movediços e escorregadios que fazem parte do já conhecido 
jogo «Knight Lore». 

Os gráficos têm a qualidade dos gráficos do «Knight Lore» 
as com a diferença de terem uma sequência reprogamável. 
programação é o triste destino de todos os Alien 8 que 

falham a sua missão, e significa serem atingidos diversas 

vezes por uma luva de boxe e por um martelo. 

«Alien 8» é um jogo mais simples que o «Knight Lore» devido 

ao facto do personagem não se transformar continuamente 

num lobisomem. 

É um jogo mais difícil de resolver pois a tua missão e mais 

complicada. 


SKOOL DAZE 


Estamos no fim do período e o nosso amigo «cábula» Erie 
quer 'salvar' as suas notas. Só que no cofre da escola existe 
um relatório «mau» sobre o seu comportamento escolar. Há 
que o ir lá tirar, mas para isso é preciso obter O código do 
Abre. Um divertido programa com excelentes gráficos. 


RAID OVER MOSCOW/U. S. Gold 


Tenha um papel determinante no conflito entre as superpo- 
tências.: Neste jogo de acção com excelentes gráficos, você 
será O comandante de uma esquadrilha com a missão de 
destruir um arsenal nuclear com o fim de salvar a sua pátria e 
assim evitar o holocausto nuclear. 


ZAXXON 


Sobrevoe a base inimiga e tente destruí-la com a poderosa 
arma da sua nave. Mas atenção, não se aproxime muito da 
base para que não seja abatido pelo inimigo. 


DO TD RS 


Po 


WORLD SERIES BASEBALL /Imagine 


World Series Baseball é um jogo onde podem entrar um ou 
dois jogadores. Este jogo anima O mais apático dos 
jogadores. : 
O écran dá-nos uma visão total da área do jogo. O estádio = 
dominado por um enorme vídeo. O jogo começa com as duas 
equipas correndo no campo para ocuparem as suas posi- 
ções, tanto para os lançamentos como para apanhar a bola. 
As principais regras de Baseball são seguidas neste jogo. 
Quando for para lançar a bola, controlas um membro da tua 
equipa, enquanto o resto da equipa corre no campo. 
Quando tiveres de apanhar a bola, o computador escolhe O 
jogador que estiver em melhor posição. 

É um jogo muito interessarite é com bons gráficos. 


EVERYONE'S A WALLY/Mikro Gen 


Será que o Wally Week e a sua turma conseguirão alguma 
vez ir passar férias? 

O que elas precisam de fazer é trabalhar e tentar juntar al- 
gum dinheiro para que isso seja possível. 

Este jogo é extremamente engraçado e os seus gráficos são 
sefisacionais. 

TECLAS: À = Entrar nas casas ou jardim 


Ce Ss — Saltar 
O — Esquerda 
P — Direita 
UTILITÁRIOS 


GEOMETRIA ANALÍTICA (400$00/p.? sócios) 


Um programa educacional em espanhol visando com muito 
cuidado a aprendizagem deste importante campo de 
Matemática. 


CÁLCULO MATRICIAL (400$00) 


Como programa de Geometria Analítica, visa a aprendiza- 
gem da globalidade desta matéria. 


ASTRONOMER (400$00) 


— Que estrelas posso ver hoje? 

— Que constelações existem? 

— Onde se situa Mercúrio no espaço sideral? 

— A que horas nasce o Sol amanhã? 

— Onde se situa o Cometa Halley no espaço sideral? 

A todas estas perguntas e muitas mais lhe irá responder este 
programa educacional. 
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